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EDITORIAL 


INDEX  VOLUME  11-6 


News  of  our  demise  has  been 
somewhat     premature,      to     twist  a 

nous  quote.  The  club  is  not 
molding  despite  what  some  readers 
may  have  heard  or  inferred.  The 
format  of  the  newsletter  has 
changed,  of  course,  as  ZX81  and 
TS20b8  interest  wanes,  but  we  will 
be  back  in  1994  for  our  twelfth  year 
of  publication.  Depending  on  support 
we  may,  or  may  not,  put  out  six 
issues  as  customary.  It  all  depends 
on  you,  the  readers  (and  writers,  I 
hope!).  Let's  not  give  up  on  our 
marvellous   little  wonders. 

On  behalf  of  the  Club  Executive, 
I'd  like  to  wish  you  all  the  best  in 
the   coming  year.    Happy  Computing! 


J  .  T  . 
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FOR  SALE    FOR  SALE    FOR  SALE 

One  of  our  club  members  is  moving  from 
the  Timex  world  and  has  a  quantity  of 
TS2068  material  to  sell.   It  is  too  lengthy 
to  list  here  but  you  can  send  him  a  SASE, 
and  ask  for  a  I  ist. 

His  stuff  includes  a  TS2068  w/ Spectrum 
ROM,  Aerco  printer  interface,  Larken  disk 
system,  Larken  RAMdisk,  TS2050  modem.  Also 
some  TS2066  books,  programs,  games,  etc. 

I  don't  have  any  prices;  I  suggest  you 
make  him  an  offer,  either  for  items  which 
interest  you  or  for  the  whole. 
Address:  Keith  Corral,  22... 2nd  Avenue 
North,  St.  Mathieu,  Quebec,  CANADA  JOL 
2H0 
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Larry  Crawford  /  357  Reynolds  Rd  /  London  Ontario  Canada  N6K  2P8 
(519)    657-9119  PUBLIC  DOMAIN  05  Nov  93 


If  you  vent  for  a  24-pin  or  bubble  jet  printer  and  had 
thoughts  of  trying  to  print  some  graphics  in  the  24-pin  bit 
image  mode,   you  were  probably  somewhat  taken  aback  by  the 
apparent  comlexity  of  it  all,  just  as  I  was. 

This  article  should  take  some  of  the  mystery  out  of  the 
process.   The  demo  program  will  give  you  the  information  needed 
to  develop  your  own  applications. 

BACKGROUND 

The  24  print  head  pins  are  arranged  into  three  groups  of  eight. 
In  effect,   each  group  acts  as  a  separate  8-pin  head  covering  1/3 
of  a  print  line.   Thus,  with  one  pass  it  is  possible  to  achieve 
the  vertical  definition  of  three  8-pin  passes  with  only  one 
pass.   Furthermore,   it  is  possible  to  achieve  a  density  of  360 
dots  per  inch  in  Hex  Density  mode. 

These  attributes  make  the  printing  very  fast  and  should  allow 
a  CAD  program  to  produce  printed  circuit  board  layouts  with  good 
solid  lines  without  the  need  for  multiple  passes.  Unfortunately, 
the  existing  CAD  programs  that  I  have  seen  are  all  based  on  72 
dots  per  inch   (dpi)   horizontal  density  and  8/72"  vertical  line 
spacing.   The  24-pin  printer  does  not  have  the  72  dpi  option. 
Instead,   it  uses  multiples  of  60  dpi  and  1/360"  paper  feed.  This 
makes  the  size  of  the  printed  image  larger  than  that  produced  by 
an  8-pin  printer. 

Consequently,   it  cannot  be  used  by  software  programs  such  as 
Pixel  Print  or  CAD  in  their  present  form:   a)   two  columns  of  64 
characters  will  not  fit  side  by  side  on  a  page  and  b)   the  socket 
hole  spacing  on  a  pcb  layout  would  be  too  great.   It  should  be 
possible  to  modify  the  calculations  performed  by  a  CAD  program 
to  get  the  scale  of  the  final  image  correct. 

There  are  numerous  other  applications,  of  course,  so  feel  free 
to  make  use  of  the  information  that  follows. 


As  a  demonstration,   we  will  print  the  first  line  of  the  screen 
in  24-pin  double  density  bit  image  graphics.   The  data  in  the 
conversion  chart  that  follows  is  essential  to  the  process. 


Type  in  the  following  program  (without  the  parenthetic  comments, 
of  course ) : 

5  REM  24-pin  bit-image  demo 
10  CLS:    PRINT  "QWERTYUIOPASDFGHJKLZXCVBNM123456" 

[this  will  put  a  single  line  on  the  screen  to  copy] 
20   IF  IN  1270236  THEN  INPUT;:    PRINT  #0;"PUT  PRINTER  ON  LINE": 
PAUSE   2:    GO  TO  20 

[An  important  reminder  since  the  screen  will  go  blank  and 
nothing  will  happen  if  the  printer  is  not  ON. 
<INPUT;>   is  a  simple  way  to  clear  out  the  bottom  of  the 
screen ] 

30  RESTORE  30:    GO  SUB  500:   DATA  27,65,8,999     [set  Line  Feed  to 
8/60" ] 

40   LET  y=175:    RESTORE   40:    GO  SUB  500:    FOR  x=0   to   255:  DATA 

27,42,33,0,2,999      [y  points   to   top  of  screen;    codes  are  sent 
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to  set  printer  for  24-pin  bit-image  double  density:   it  will 
expect  2x256  bytes  of  data:    the  x  loop  will  point  to  all  256 
pixel  columns  across  the  screen] 
50  LET  bl=224*POINT   ( x , y ) +28*POINT   (x , y-1 ) +3*P0INT  (x,y-2) 

["bl"  is  the  "top"  byte.   Following  the  chart,   if  the  top  3 
pixels  of  the  screen  are  INK  then  the  value  assigned  to  "bl" 
will  be  224+28+3=255.   Therefore,   all   top  8  pins  of  the  print 
head  will  fire] 

60  LET  b2=128*POINT   ( x , y-2 ) +112*POINT   ( x , y-3 ) +14*P0INT  (x,y-4) 
+P0INT  (x,y-5) 

["b2"  is  the  "middle"  byte.   Following  the  chart,   if  the 
pixels  3rd,   4th,   5th,   &  6th  from  the  top  of  the  screen  are 
all  INK  then  "b2"   is  assigned  a  value  of  128+112+14+1=255. 
Therefore,   the  middle  8  pins  will  all  fire] 
70  LET  b3=192*POINT   (x,y-5)+56*  POINT   ( x , y-6 ) +7*P0INT  (x,y-7) 
["b3"  is  the  bottom  byte.   Following  the  chart,   if  the  pixels 
6th,   7th  &  8th  from  the  top  of  the  screen  are  INK  then  "b3" 
will  be  assigned  a  value  of  192+56+7-255.   Therefore,  the 
bottom  8  pins  will  all  fire] 
80  RESTORE  80:   GO  SUB  500:   NEXT  x:   DATA  bl , b2 , b3 , bl , b2 , b3 , 999 
[send  the  3  bytes   to  the  printer  twice  for  double  density] 
90  INPUT;:   PRINT  #0;x:   NEXT  x     [clears   the  bottom  of  the  screen 
then  prints   the  pixel  column  #  to  let  you  know  that  the 
computer  is  calculating  the  data  bytes.   Gets  the  next  col  #] 

100  RESTORE   100:    GO  SUB  500:    STOP:    DATA  13,10,999 
[send  CARRIAGE  RETURN  and  Line  Feed] 

500  READ  a:    IF  a=999  THEN  RETURN 

[999  is  a  dummy  value  to  signal   the  end  of  current  data] 

510  IF  IN  127<>236  THEN  GO  TO  510     [if  the  printer  is  busy,  wait 
until  it  is  ready  for  data.    (<INPUT;>  is  a  simple  way  of 
clearing  the  bottom  2  lines  of  the  screen)] 

520  OUT  127, a:   GO  TO  500     [send  data  to  the  printer] 

9999  RANDOMIZE  USR  100:   SAVE  "lldem.Bl" 


Now  <G0  TO  9999>   to  save  it  to  disk  and  then  <RUN> 

It  takes  nearly  a  minute  to  get  to  the  actual  printing  because 
of  all   the  calculations  to  be  done  in  BASIC. 


If  you  want  to  print  a  whole  screen,   make   the  following  changes: 
LINE  10:   Replace  with:    10  LET  ctr=0:   RANDOMIZE  USR   100:  LOAD 
"screen  name"  SCREEN$ 

['ctr'   will  keep  track  of  the  print   line  being 
processed] 

LINE  40:   Replace  <LET  y=175>  with  <FOR  y=175  TO  7  STEP  -8:  LET 
ctr=ctr+l : > 

[This  will  set  up  a   loop  to  deal  with  all  22  screen 

lines  and  increment  the  line  counter] 
LINE  90:   Add   <ctr;M,";>   immediately  after   <PRINT  #0 ; > 
LINE   100:   Add  <NEXT  y:>   immediately  ahead  of  <ST0P:> 
LINE  9999:    Change  program  name 

LINEs  40  and  100  set  up  a  loop  to  look  at  all  22  lines  of  the 
upper  screen,  outputting  the  data  to  the  printer  at  the  end  of 
each   line.   A  full   screen   takes  over  20  minutes   to  copy. 


To  print  out  in   triple  density,    change   the  data   in   line  30  to 
27,42,39,0,3  and  add  another  set  of  bl,b2,b3   to  the  data  in  line 
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80.   The  printer  will  then  expect  3x256  bit  image  data  bytes. 


A  much  faster  version  gets  the  data  from  the  screen  file 
instead  of  the  screen.   It  puts  the  data  into  1  or  22  line  files, 
ready  to  be  loaded  from  disk  then  sent  to  the  printer  by  a 
205-byte  m/c  routine.   It  takes  about  5  minutes  to  create  and 
save  the  22  files  and  less  than  one  minute  to  print  them  all  in 
triple  density. 

George  Chambers  has  a  copy  of  this  program  with  documentation 
on  a  LARKEN  club  disk.    If  you  would  like  an  Oliger  version,  send 
me  $5.00  cash  or  money  order.    (Larry  C.) 


A  full  screen  produces  an  image  A. 25"  by  2.9"   (10.8  by  7.4  mm) 
and  is  proportioned  so  that  squares  are  square  and  circles  are 
round.   Different  screen  images  can  be  printed  consecutively  on 
the  same  sheet  so  that  a  composite  image  can  be  A. 25"  by  any 
length . 


8-PIN  TO  24-PIN  CONVERSION  CHART 
FOR  A  24-PIN  PRINTER  WITH  EPSON  EMULATION 


TOP 
(BIT  7)> 


8-PIN 


24-PIN 
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Q      L      I      P  S 

by  Hugh  Howie 


For  some  time  now  I  have  been 
experiencing  a  problem  with  one  of  my 
disk  drives  on  my  #2  QL,  in  that  I  could 
not  always  format  a  disk  in  #2  drive.  I 
would  get  a  "Failed"  message,  or  the  disk 
would  be  formatted  with  less  than  the 
correct  number  of  sectors.  I  was  able  to 
use  this  drive  to  write  to,  and  to  read, 
with  no  apparent  problem,  but  format  was 
unreliable . 

This  particular  setup  has  three  drives  on 
the  Trump  Card:- 


#1 

5 

1/4 

720 

#2 

3 

1/2 

DD 

#3 

5 

1/4 

360 

I  am  able  to  use  three  drives  on  the 
Trump  Card  as  I  obtained  from  Miracle 
Systems  a  small  adapter  (card)  which 
permits  the  Trump  or  the  Gold  Cards,  to 
handle  up  to  four  drives.  This  config- 
uration means  that  in  conjunction  with  my 
#1  QL,  I  can  copy  the  TorQLib  Library  to 
just  about  any  configuration  that  may  be 
presented  to  me  by  a  member. 

Recently  I  had  occasion  to  be  copying 
some  disks  for  someone  who  sent  me  5  1/4 
disks,  and  in  the  process  of  copying  I 
found  one  of  his  disks  "Not  Found"  which 
usually  means  it  has  not  been  formatted. 
I  reformatted  it  in  #1  a  number  of  times 
with  varying  results,  none  of  them 
correct.  I  returned  it  to  him,  and  he 
replied  that  he  had  no  problem  with  that 
disk,  that  it  formatted,  was  written  to, 
and  was  readable  with  no  difficulty. 

I  then  recalled  another  member  who  had  a 
setup  similar  to  mine,  and  he  was  having 
trouble  of  a  like  nature.  I  began  to 
ponder  if  the  problem  could  be  in  the 
small  Disk  Adapter,  so  I  made  a  few  test 
runs  to  format  a  disk  in  #2  drive,  the 
one  most  likely  to  give  me  trouble. 

I  started  up  the  system,  and,  using  a  new 
3  1/2  disk  I  formatted  it  four  times,  and 
there  was  no  instance  where  I  got  other 
than  1440/1440.  I  tried  it  again,  using 
the  command :- 

for  i=l  to  4: format  flp2_:end  for  i 

This   time   I   got   one   report   of    less  than 


normal .  Subsequent  runs  gave  varying 
results.  So  I  tried  another  two  disks 
with  similar  results. 

I  then  switched  off  the  unit,  removed  the 
Disk  Adapter,  and  after  many  runs  of  all 
disks ,  I  had  no  errors .  Replaced  the 
Adapter,  and  started  getting  errors 
again . 

I  checked  the  adapter  to  see  if  there 
were  any  wires  touching  where  they  should 
not,  and  pried  any  doubtful  ones  away 
from  the  board.  It  should  be  noted  that 
the  board  is  open  and  it  is  possible  for 
undue  pressure  to  be  applied  to  its 
components 

Next  day  I  thought  I  would  retry  the 
experiment,  and  the  results  were  exactly 
the  same. 

Again,  the  initial  results  were  fine, 
but  after  the  QL  had  been  running 
(warming  up  the  Adapter?)  for  a  short 
period  of  time,  I  began  to  get  less  than 
satisfactory  results. 

Conclusions : - 

1.  The  Disk  Adapter  does  allow  up  to 
four  disk  drives  to  run  from  Trump 
Card  or  the  Gold  Card. 

2.  With  the  adapter,  flp2_  appears  to 
be  faulty  in  formatting. 

3.  Flpl_  would  appear  to  be  OK  except 
for  that  one  disk  which  I  mention. 

4.  Until  the  Adapter  "warms  up",  it 
would  appear  to  be  reasonably 
reliable,  but  not  always. 

5.  Without  the  Adapter,  the  unit 
formats  fine. 

If  there  is  anyone  who  has  had  similar 
experiences  in  using  this  Adapter,  I 
would  be  glad  to  hear  from  them. 

This  is  my  story,  This  is  my  song, 

If    you    have    any    ideas,    Just    send  them 

along . 

Hugh  H.  Howie,     586  Oneida  Dr. 
Burlington,  Ont .       Canada,  L7T  3V3 
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ID  I  ID  That  there  are    two  different  controller  chips  used 

YOU  in  the  LKdos  EPROM  I/F  board?        They  are  WD1770  and 

KNOW      WD1772.  The  machine  code  in  the  EPROM  on  the 

•?  cartridge  board    is  slightly  different  for  each  one. 

If  you  have  the  WD1770  chip  your  version  3  EPROM  will 
be  marked  L3.  If  you  have  the  WD1772  controller  you  will  find 
that  your  EPROM  is  marked  L3f. 

The  disassembly  that  has  been  appearing  in  Sine-Link  was  made 
from  a  version  3f  EPROM.  The  disassembly  was  done  by  Ken 
Shoenberger  using  his  TSDB  disassembler  program.  It  was  35 
pages  long  and  he  had  analyzed  it  making  handwritten  remarks. 
Before  I  submitted  it  to  Sine-Link  I  retyped  it  in  MScript  so  I 
could  print  it  with  a  smaller  font  and  type  in  his  remarks.  I 
was  able  to  reduce  it  to  21  pages.  As  of  writing  this  article 
only  the  first  eight  pages  have  been  published. 

To  verify  that  I  hadn't  left  anything  out  or  botched  the  typing 
I  proofed  it  against  my  chip.  I  have  an  EPROM  reader/burner 
that  will  make  a  disk  copy  of  the  EPROM.  It  works  on  an  IBM 
clone  so  I  converted  it  to  a  LKdos  disk  using  the  Larken  Disk 
Editor.  When  I  am  ready  to  proof  a  page  I  load  the  LKdos  code 
at  address  40,000,  load  TSDB  and  select  an  offset  of  25536.  When 
I  disassemble  I  get  the  correct  addresses  on  the  screen.  Since 
I  have  the  (earlier?)  WD1770  chip  I  have  the  L3  EPROM.  That  is 
where  I  discovered  the  difference  between  the  two  chips.  L3f 
has  two  additional  RRA  instructions  at  addresses  2336  and  2337. 
There  is  a  2  byte  difference  in  all  addresses  from  there  up  to 
4364.  So  the  code  between  2336  and  4364  in  the  disassembly  will 
be  different  if  you  have  the  L3  version.  (That  is,  pages  7  to  12 
of  the  disassembly. ) 

Reading  the  code  with  the  EPROM  reader  also  verifies  that  the 
"forbidden  addresses"  (98  to  111)  are  accurate  as  they  appeared 
on  the  first  page  of  the  disassembly. 

One  of  the  reasons  for  submitting  the  entire  disassembly  was  to 
answer  part  of  the  questions  raised  by  Robert  Shade  in.  his 
letter  published  in  Vol.  11,  #1,  about  increasing  the  size  of 
the  RAMdisk.  In  the  RAMdisk  assembly  instructions  Larry  Kenny 
says  "The  order  of  the  ramchip  selection  is  not  linear  because 
of  a  small  PCB  error".  A  lookup  table  at  4175  to  4222 
compensates  for  this.  I  haven't  studied  the  posibility  of 
adding  more  RAM,  but  it  is  obvious  that  two  things  would  have  to 
occur  before  this  could  even  be  considered:  1)  correct  the 
circuit  board  error,  and  2)  revise  the  code  in  the  vicinity  of 
4153  where  the  lookup  table  is  used.  (See  page  12  of  the 
disassembly. ) 

Pages  1  through  13  were  done  in  MScript.  Pages  14  through  21 
were  done  on  a  Macintosh.  The  file  was  transfered  to  a  MSdos 
disk  where  I  could  then  read  it  back  into  MScript  using  the 
Larken  Disk  Editor.  My  only  problem  with  this  process  was  the 
diference  in  how  tabs  are  handled.  The  Mac  program  uses  a  9  to 
indicate  a  tab  and  I  discovered  that  MScript  "pads"  the  tabbed 
areas  with  spaces.  I  changed  all  the  9's  to  spaces  (32)  and  then 
had  to  add  more  to  return  to  the  desired  configuration.  My 
original  reason  for  doing  this  was  to  save  typing  time  because 
I  could  type  columns  on  the  Mac.  This  turned  out  to  be  a  "pay 
me  now  or  pay  me  later"  exercise.     We  live  and  learni  +LSC+ 
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SHOPPING  ajo.  th<L  U.S.A. 


I  read  the  comments  by  Louis  Laferriere  in  the  last  issue  of  Sine-Link,  and  of  his 
experience  of  making  a  purchase  in  the  U.S.A.,  and  how  the  Post  Office  collected  the 
GST,  (General  Sales  Tax  to  the  unitiated) ,  then  charging  him  $5  for  the  privilege  of 
doing  so. 

My  experience  is  similar,  but  much  more  expensive. 

I  phoned  J.  D.  Hannam  Inc.  in  Anaheim,  California,  and  asked  them  to  send  me  an  ED 
disk  drive.     I  forgot  to  tell  them  to  send  it  by  Mail. 

I  couple  of  days  after  I  placed  the  order  I  realised  my  omission,  but  as  I  thought 
the  goods  had  probably  been  dispatched,  I  did  nothing  about  it.  I  had  a  good  idea 
as  to  what  was  going  to  happen.     Sure  enough  it  did. 

A  few  days  later  I  had  a  phone  call  from  UPS  in  Windsor,  saying  they  had  a  package 
for  me,  and  that  the  tax  would  be  $xx,  I  said  OK,  and  was  told  that  there  also  would 
be  a  brokerage  fee  of  $20.     (Shipping  charge  at  source,  $5.70  US) 

To  travel  to  Windsor  and  clear  the  package  myself,  would  have  cost  me  more  in 
gasoline  than  brokerage  fee,   so  I  had  to  go  along  with  this  exorbitant  larceny. 

From  the  size  of  the  UPS  truck/trailer  combinations  I  have  seen  in  my  travels, 
heading  north  to  Canada,  I  can  only  conjecture  that  if  every  package  is  subjected  to 
the  same  brokerage,  then  UPS  could  quite  possibly  transport  goods  free,  and  live  on 
the  brokerage  fees. 

I  had  a  similar  experience  with  UPS  a  couple  years  ago,  but  in  this  case  the  Port  of 
Entry  was  Fort  Erie,  so  I  went  there  and  cleared  the  package  with  no  problem,  and  it 
only  took  me  five  minutes  with  Customs  to  do  so. 

Since  the  Fort  Erie  experiences,  I  have  asked  my  suppliers  to  send  the  packages  by 
Mail,  and  have  had  no  problems.  I  am  notified  when  there  is  a  package  at  the  Post 
Office  to  be  collected,  I  do  so,  and  if  all  I  am  charged  is  $5,  then  that  is  better 
than  $20.  I  still  agree  that  the  $5  fee  Louis  was  charged  by  the  Post  Office  would 
be  onerous  to  me. 

I  can  only  say  to  anyone  making  a  purchase  from  the  States,  that  they  request  the 
supplier  to  send  it  by  Mail.     If  they  do  otherwise,  then  refuse  to  accept  delivery. 

I  would  ask  all  USA  suppliers  sending  anything  to  Canada,  to  send  it  by  Mail.  The 
time  taken  by  the  Mail  Services  is  not  that  much  different  from  the  Parcel  Services 
-  and  cheaper. 

Hugh  Howie . 
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SOFTLY  AS   I   LEAVE  YOU 
An  adaptation  of  a  familiar  melody 
to  the  TS  2063  Computer 
By  Joan  Kealy 

One  of  our  members,   Joan  Kealy,   has  sent  us  a  rare  treat;   a  Larken 
disk  with  several  melodies  which  she  has  adapted  to  the  TS2068  comput er . 
These  adaptations  make  use  of  the  sound  chip   in  the  2068  computer. 

Very  little  in  the  Timex  world  has  been  done  to  take  advantage  of 
this  feature  of  the  computer,  and  we  are  pleased  to  be  able  to  offer 
this  listing. 

This   is  the  second  time  we  have  received  work  of  this  nature  from 
Joan.    The  first  collection  of  her  musical   adaptations  are  on  the  Larken 
library  disk  #20.    We  shall   add  the  several   compositions  we've  received 
this  time  to  the  same  disk.    We  can  also  make  this  available  to  club 
members  on  tape,    if  there   is  a  demand.   Ask  for   it.  G.F.C. 


P.S.   Joan  also  sent  us  a  couple  of  short  sound  effects,    with  the  hope 
that   some  club  member  could  experiment  and  come  up  with  a  better 
rend  it  ion. 


10   PEM     THE   SOUND   OF    =  UP~ 

150   PAUSE   50:    SOUND  7:53 

170  SOUND  5  ,  Si. i  7  ,  7,  S  ,  SI;  12 
1  ,  45  ,  12  ,  4-5  :    PAUSE  550 

172  SOUND  5 , SI, 7 . 7; i 
1 , 45 ;  12  .  15     PAUSE  20i 

175   SOUND   7 , 53 .; 5  .  0 ;  13  ,  0 
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1  BORDER   5      SOUND  7  ,  53 

T  o 

2  PAPER 

0  ,  0 

'  A  U  5  E  £00 
.     REM  TRANSLATED  TO  T52Q55  B 
JOAN   KEAL , . , OOPYRIGHTEl    TO  PUBL 
^3    DOMAIN    1992. ..HALF  NOTE=l 
4-   GO    SUB    1995      GO    SUB  101S 
5   FOP   N  =  l  TO    5     PEP"    D,~  SEE 
P   D  ,  P      NE>T  N 

11   DhTh    i.;  12  ,  1.5  ,  15  =  .25   14  =  .25 
17 ,  . 5 , 15  ,  . 5  :  14 , 1 , 15   1.5.1  = 
15  POKE   23692  = 255 
20   GO    SUB  1995 

25   RESTORE   4S  ■    FOP   5  =  1  TO  105 
READ   C  ■  L $  .  D  .  R 
30   PRINT  TAB  P*1.2; L5      GO  SUE 
3      BEEP   D  ,  P 
35   NEXT  B 

39  R EM  D ATP  : C HOPD ::  ,  UORC  "  'DU 
RATION    OF   BEER"     ! R' IT C  H   OF  3EEP:! 

40  D  ATP    1017    ::30FT-::    1  0.1015 

-         "         1.5,4:    1050    :  0:0:    1900         "   I  " 

.  25   2  .  1900  ^    =25   E.IOEE  "_ 

-PjJE  ;    .5:4:1900-  :    0U::    =5   2  _015. 

::0F"-::    :   1   :  i   .    1900   :     !_  i    "    .    1  .  5    :   "  1050 

"         "  0:0 

4-5   DPTP    19O0:::-OP;:    .25:5  1900: 
■My  ::  :  .  25  :  9  :  1035  ,  "HEART"    .  5   "  190 
O  ,  "WOULD"  :  .  5  ,  5  ,  1017  :  "BREAI-       1  .  5 

:■     :    10  IS    ,     "   IF  "  .25:12        1016    ,    "YOU"     ,     «  2 

5:11, 190O  :  " SHOULD "  .  . 25  12:1030  : 
UAKE "  1.5,9 

47   DATA    1910  .  "  ;  0:0 
R0   DATP    1900    "  AN:  ::    .  25   ~  1900 
:  SEE"  :  . 25 , 5 , 1900    "ME"  .25.9,1015 

"GO    .",1.5,7,    105O    :  "     :    O     :  O 

50   C'ATA    1900  :  "SO"  :  .  375  ■  5   1900  ■ 
'  I"  ,  .  25  :  4  ,  1035  ;  "LEfiUE"    .  5  ,  4  ,  1900 
OU"  :  .5,2,  1127  :  "  SOFT-"  ;  1  ,  5  ,  190 

O     :'•_:".    1    .    5     :    *         1045    =    "    "      :    O    :  0 

55   DATP    1045  :  :  ^ONG"  :,  25  ;  5  :  1900 
"BE-" ;. 25, 5    1105.    -OPE"    .5."  19 
00    "    OU"  ,  . 5  ,  5  :  1127    "MI33      1   "  19 
00    "ME"  .  _  .  5    10  .  104-5  :    "    0  0 
""0   DATA    1910  .  :  0:0 
75   :ATP    1900  :  "_ONG"  ,  . 25    2  1900 
;BE-:  :. 25:12:1105      -OPE'     .5  10 
_9O0  .  "  :  OUR"  ■  .5  :  S    1127:    ARMS"    .-  5 
lO : 1200  :  "CAN"    =25:15   1900     '  E  EG 
.5    1-  :  1900    "ME"    .5:15    _130     '  STAY 
;  1.25,12 

SO   DATP    1900     :-0="    =25  10:^900 
:  ONE"    .  25   S    1900      MORE"    =25  12 
_065    "HOUR"  1.5:10 
S5   : H--    1910    "  0:0 
90   DATA    100.5      3R      ■.  5    2    __0  5  : 
NE"    .5:^:1900:    M  1^5      =5   5    1017  : 
DA , .  1=231 

5   2  1-00 
=  5    -  _900 


55   :pt^  1050 
~ER       =25   5    10  D 
~^E;     =5   2  101: 
__00   IA~p  r050 

00      --E" "  =  25~11 


—  ■  -  -  -- 
_    _  —  =_  ■_ 


105  DATA  1900  ,  ;:  S0::  ,  .  5  ,  12  ,  lJ.30  .  ' 
SOFT-"  .  1  :  12  :  1900  ,  "LY"  .  1 .  5  ,  12  ,  104 

5 : "AS" : . 25 : 12 : 1900 ,  "  I" : . 25 : 12^12 
00    •    "LEAUE"     :     .    5    :    lO    :    1900    :    '  ,D,S 

,  1017  :  "THERE  .  "  :  2  .  5  ,  7 

107        :•  ATP         1920    :    "    "     :    0    :  0 

HO   DATA    iO50:::AF-"    .  2-   2  1900 

"TEP"  . 25 : 5 : 1035 : "PL^ "  .5,4:1900 

"THE"  :  .  5  :  2  :  1015  :  "  f'  EAR S  "  ,  2  .  5  :  7 

112   DATA    1910  :  ::  :"  =  0  .  0 

115  DATA  1O50 :" I" . . 25 ,5, 1900 :  3 
AN  T"  :  .25  ,  9  :  1035  :  "BEAR"  =  75 , 7 , 19 
OO  .  "THE"  ■  . 25 , 11 , 1055 ,  "^EARS"  ,1,1 

2  :  10  35  ,  "TO"   :  1  ,  12  :  1030  :     '  F  A  L  _ "  .1.5 

:  12 

117   DATA    1910  ;  ::  "  :  0  .  0 
120   DATA    1045  .  "A3"  ,  .  25  .  12  1900: 
I"  :  .25   12  .  1105  :  "LEAUE::    .  5  ,  10  =  12 
OO    "  ..  OU"  :  .  5  ,  S  ,  1017  :  "THERE"  ,  2  ,  7  ,  1 

050    ,    "AS"     :     .   25    :    5    :    1900    :    "   I"     :     .   25    :    9    :  10 

35    "LEAUE"  :  .  5  :  7  :  190O  ,  "  =■  OU"  .5=5, 

1015 : "THERE"  1 . 5 : 7 : 1050 : "PS" . . 25 
.  5  .  190O  ,  "I"  :  .25  :  9  :  1035  :  "_EAYE"  .  . 
5 : 7 : 1900 : " I OU" , . 5 . 14 . 1017 : ""HERE 

.  "  , 1. 5 . 12 

125   00    SUB    1999      PAUSE   200  GO 
T  0   9  9  9  9 

1015    SOUND   O.209.1   0:2    155.:    0 . - 
139:5:0      RETURN        REM   C  MAU 

lOl"7        ZQjJ^r        0,152:1:1:2       ^  Z  .,  3:1:-: 

23.5:1.  RETURN  .  REM  LOWER  C  MAU 
101S  SOUND  0  ,  165 :  1  .  O : 2  ,  132 ;  :  ,  O . 4 
: 104: 5,0  RETURN  REM  C  MAU  cho 
r  d   i  n ersion  £  g  c 

10  30  SOUND  O  :  155 :  1  ,  0 : 2  ,  124 .  3  : 0 i  4 
.104,5.0      RETURN        REM   F  MAU 

1035       SOUND       0,139:1:0,2:110:3,0  4 

93.5,0     RETURN        REM    3  MAU 

1045        SOUND        O    :    155    :     1    :    O    :    2        131        3    :    O    :  * 

:  104      RETURN        REM   F  MINOR 

1O50    SOUND  0,185,1,0,2:155:3,0:4. 

: 124; 5,0     RETURN        REM   D   MINOR  D 

"NATURAL  P 
1055    SOUND   0:245,1,0:2  £09:3=0,4 

155,5,0      RETURN        REM   P  MIN 
1105    SOUND   0,234,1:0   2    136    :    0 . - 

155 .5:0      RETURN        PEM   S    -_P~  MA 

1122  SOUND  0:95. _._  2:32;:  _  4:2 
ic  :  5  0  RETURN  PEM  D=  D IM  '  DttFS 
A  i  L  DLL!*  £  i"  2  lOH 

1127    =0UND   0i£34;1.0,£    175.:    0  - 
132   5,0      RETURN        REM   5:  INUER3 
ION 

1130   SOUND   O   7   i    _  £  £09,:  Oil 

75 .  5  :  0 .    RETURN        PEM  Ac 

19O0   ^  ETURN        REM   DUMM      ChOPZ  ~3 

- EGU^PTE  DATA 
1910   l^S  RETURN 
1920   =PUSE   50      CLE  RETURN 
1225   CLE        SOUND   ^  ,  E 2      =AUSE  S3 

SOUND  "  55  3  15  9  15  _0  _5  11  2 
-    12    12    13    i:      RETURN        R  E  ^   -  =  ■.-' 

: : _  :  "  s:  :  o  -  c  _o  o  re 

-_RN      _=EM  :-^ 

9  9  97     f ; 0- 

--5r    :_EP"         PAN30MIIE    -3-  _30 
5AUE      30~_    ,51     _0',E  _ 

-595  "ANConzE  -3"  _oo    _:p:  =: 


0  0 


SINC-LINK 


11 


August  15,  1993 


John  E.  Juergens 
18  Bryce  Canyon  Way 
Pacifica    CA  94044-3723 


Hugh  H.  Howie 
QL  Contact 
586  Oneida  Drive 
BURLINGTON  ONT. 
CANADA      L7T  3V3 


Dear  Hugh, 

This  is  in  response  to  your  QLIPS  note  on  EXCHANGE.  Would  like  to  talk 
you  out  of  a  copy  if  I  could. 

Am  using  the  original,  bundled  Archive  for  our  checking  and  tax  program 
and  it  has  worked  just  fine  for  us  for  many,  many  years.  My  only 
complaint  with  it  is  that,  like  all  of  the  programs  in  the  Psion  suite, 
it  did  not  come  with  a  start-up  macro. 

Long  ago  I  augmented  Quill  with  Turbo  +.  Did  not  know  at  the  time  of 
purchase  that  we  were  also  getting  macros  with  it;  particularly,  CTRL-S 
which  has  saved  a  lot  of  time  and  keystrokes  when  starting  Quill. 

I  have  used  Psion's  PC-4  group  and  it,  as  apparently  does  the  EXCHANGE 
group,  uses  TSL.  TSL,  at  least  as  far  as  the  PC-4  group  is  concerned,  is 
really  ONLY  a  start-up  macro. 

It  would  have  been  nice  if  the  KeyDefine  program  included  a  start-up 
macro  as  well  -  then  I  wouldn't  be  asking  you  for  a  favor. 

Anyway,  the  only  reason  I  am  interested  in  EXCHANGE  is  for  the  TSL. 
However,  it  may  turn  out  to  be  more  of  a  hassle  than  pushing  that  single 
key  to  invoke  the  KeyDefine  macro  at  the  Archive  opening  screen.  We'll 
see  . 

On  another  note,  have  been  using  QL-PC  FileServer  since  writing  you 
recently.     Have  been  using  it  to  spellcheck  and  edit  a  QL  _doc . 

Developed  2  macros,  using  Turbo  +:  The  first  takes  my  standard  page(s) 
of  text  and  exports  it,  via  a  printer_dat  set  up  for  only  CRs ,  to  the  PC 
drive  D:   (a  100K  ram/vdisk). 

The  PC  is  started  with  a  disk  in  drive  A:  and,  via  the  AUTOEXEC.BAT  file 
without  further  ado,  it  starts  the  PC  side  of  QL-PC  FileServer;  the  PC 
then  pauses  for  a  keypress. 

Once  the  QL  _doc  file  is  sent  over  to  the  vdisk  on  drive  D: .  I  press  any 
key  on  the  PC.  When  this  happens,  it  loads  PFSlist  Choice  and  then  by  a 
1st  Choice  macro  the  QL  file  in  D:   is  loaded  and  spell  checking  begun. 

When  spellchecking  and  editing  are  finished  another  1st  Choice  macro 
sends  the  iile  back  to  drive  D:   and  ready  for  import  into  the  QL. 

The  second  QL  macro  does  just  that,  actually  the  reverse  of  the  first, 
getting  the  file  back  from  the  PC's  drive  D:  and  importing  it  into  Quill 
by  line,  and  re-setting  the  margins,  Justification,  etc. 
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Although  somewhat  complicated  to  explain,  it  works  rather  well  and  much 
easier  than  it  appears  above.  PFS:lst  Choice  is.  if  you  don't  know,  also 
a  suite  like  EXCHANGE  comprising  a  Word  Processor,  Spreadsheet  (one  of 
the  worst  I've  seen),  a  Data  Rase  that  makes  Archive  look  like  it  cost 
$500,  and  a  Telecomunications  program,  etc.,  etc. 

The  Word  Processor  is  not  bad.  It  contains  both  a  speilchecker  and  a 
Thesaurus.  The  only  reason  I  bought  it  (US$40  at  Damark)  was  the  price. 
You  are  probably  finding  out,  as  you  now  have  access  to  a  PC,  software 
vendors  are  closing  out  their  DOS  products  to  make  shelf  space  available 
for  their  Windows  versions.  Old  fuds  like  myself,  who  shall  probably 
never  use  Windows,  are  finding  bargains  amongst  their  close-outs. 

Am  enclosing  my  usual  US$1.00,   trust  it's  sufficient. 

Thanks  in  advance, 


With  many  regrets  I  have  to  announce  there  will  NOT  be  a  Sinclair 
Pest  in  Toronto  in  1994. 

I  would  like  to  express  my  appreciation  to  the  many  who  took  time 
and  trouble  to  send  in  the  questionaire  which  was  in  the  last 
issue  of  Sine-Link,  stating  they  would  like  to  come  and  whom  they 
would  like  to  see  at  such  a  Fest. 

To  others  who  were  unable  to  reply  owing  to  the  deadline,  I  also 
give  my  thanks. 

I  am  sorry  to  have  to  write  this  letter,  but  I  feel  that  to  go 
ahead  with  this  project  would  be  too  much  for  me  to  accomplish 
on  my  own. 


NO  TORONTO  FEST  IN 


Thank  you,  one  and  all. 


Hugh  H.  Howie. 


November  1/93 
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XCHANGE  QUESTION  ANSWERED 


In  the  September  issue  I  mentioned  that  I  thought  XCHANGE,  the  recently  released 
to  Public  Domain  program,  was  multi -tasking,  that  I  had  heard  it  was  not  really 
a  multitasking  program  and  could  anyone  enlighten  me. 

The  other  night  I  received  a  call  from  Howard  Clase  and  in  a  few  short  words  he 
showed  me  the  difference  between  such  as  Taskmaster  and  Xchange . 

Taskmaster,  which  is  a  true  multitasker,  keeps  plugging  along  when  the  program 
is  changed,  whereas  Xchange  stops  work  on  a  program  when  you  switch  to  another. 

So  that  means  you  can  xchange  one  program  for  another,  but  operation  of  the 
first  is  suspended  while  you  are  away  from  it. 

Taskmaster  works  in  the  background  while  you  are  away  on  something  else. 
My  question  is  answered,  and  a  big  Thank  You  to  Howard  Clase  for  the  call. 

Hugh  Howie 


XCHANGE 
Complete  program  now  in  library 


I  have  just  received  from  Howard  Clase  a  copy  of  XCHANGE,  the  Psion 
program  recently  released  to  Public  Domain. 

This  is  the  latest  PD  version  from  the  West  Midlands  Quanta  Sub 
Group,  and  is  on  a  DD  disk,  utilising  all  space  on  that  disk,  (3/1440 
sectors). 

It  has  been  placed  in  our  library  bearing  the  title  of  "Xch-1"  Should 
anyone  wish  a  copy  the  usual  rules  apply,  send  a  formatted  disk  plus 
return  post  and  packing,  and  I  will  get  it  back  to  you  as  soon  as 
possible. 

I  have  just  added  an  ED  drive,  so  can  supply  programs  on  3  1/2  DD, 
HD,  ED,  and  also  on  5  1/4-  360  or  720.  So  that  should  cover  whatever 
you  might  have. 

On  behalf  of  the  club  and  its  members, 

Many  thanks  Howard. 

Hugh  Howie 
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DID  I  have  enjoyed  the  quality  of  our  newsletter  and 

YOU  I  have  been  awed  by  the  knowledge  of  some  of  our 

KNOW       contributors.     I  guess  that  I  have  assumed  that 
*?  everyone  else  has  all  the  information  that  I  have 

available  to  me.     Our  last  newsletter  and  the  out  of 
town  letter  from  George  reminded  me  what  assuming  does.  The 
request  for  information  about  the  code  for  our  DOS  and  the 
comment  that  a  schematic  is  unavailable  triggered  me.  Ken 
Schoenberger  has  written  a  good  disassembler  and  he  printed  out 
the  code  and  added  remarks  as  he  analysized  it.     It  is  38  pages 
long  with  two  columns  per  page.     Rather  that  print  out  a  copy  to 
send  in   (I  have  nearly  worn  mine  out  and  Ken's  comments  would  be 
lost)   I  have  started  to  key  it  in  to  MScript  so  that  it  can  be 
printed  out  at  15  CPI  with  narrow  spacing.     My  Christmas  present 
was  a  Canon  Bubble  Jet  Printer  and  it  seems  readable  at  this 
smaller  type.     It  is  labor  intensive  so  this  installment  will 
cover  the  first  third  of  the  code.     The  code  in  the  "forbidden 
area"  was  given  to  us  and  I  have  not  verified  it.     I  hope  to  do 
this  before  the  last  installment  and  I  will  report  back  later. 

The  second  item,   the  cartridge  and  I/F  schematic,  was  something 
I  was  curious  about  when  I  first  got  my  Larken  system.     I  had 
looked  over  the  cartridge  and  had  started  to  put  it  on  paper.  To 
verify  that  I  had  it  right  I  built  a  unit  on  a  discarded  Zebra 
board.     After  one  false  start  with  one  wiring  error  it  worked. 

So  the  cartridge  schematic  should  be  correct.     I  did  not 
recognize  the  marking  on  one  diode,   so  I  merely  recorded  what 
was  on  it.     I  used  a  diode  that  looked  like  it  and  it  worked. 

I  do  have  to  apologize  for  not  using  a  Timex  to  do  the 
schematic,   but  I  thought  it  would  be  clearer  done  on  a  Laser 
printer . 

I  have  not  done  anything  on  the  disk  I/F.      If  anyone  is 
seriously  interested  in  the  schematic  for  it  I  could  work  on  it 
after  I  complete  the  disassembly  of  the  cartridge. 

If  any  one  knows  of  a  m/c  patch  that  would  allow  me  to  send  the 
disassembly  to  memory  instead  of  screen  or  printer,   I  would  be 
interested  in  trying  that  rather  than  retyping  the  remaining 
pages . 

My  typing  skills  are  far  from  perfect,    so  in  case  anyone  is 
interested  in  verifying  a  particular  piece  of  code  here  is  how 
it  was  done: 

1.  Clear  39999 

2.  Load  in  TSDB  at  60000 

3.  Key  in  a  short  basic  routine  to  do  a  LKdos  peek  and  poke  to 
40000  +  address 

4.  Set  offset  so  that  proper  addresses  show  in  print  out 
(send  disassembly  to  screen  or) 

5.  Set  margin  for  left  column 
6  .      set  printer  on  in  TSDB 

disassemble  until  page   is  full 
S.      reset  margin  to  print   right  column 
9.      disassemble  until  page  is  full 
L~      repeat   5   thru  9   for  next  page 

Les   Cottrell     108  River  Heights  Drive     Cocoa,    FL  32922-6630 

THIS   IS  THE  CONCLUSION  OF  LES'S  DISASSEMBLY.    SEE   ISSUES   11-2,11-3   &  11-5 

ED. 
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name  Dec 

Hex 

Instr-Dec  Remarks 

5710 

164E 

JR  C(  5719 

5900 

170C 

LiD  At  , 

5712 

1650 

CP  165 

5903 

170F 

CP  B 

5714 

1652 

JP  NP  5985 

5904 

1710 

tp  p  n 

5717 

1655 

LD  A,  35  ; 

5906 

1712 

PITT  fifl?7 

5719 

1657 

LD  HL,  0 

5909 

1715 

RETT 

5722 

165A 

LD  L,  A 

5910 

1716 

LD  A,  B 

5723 

1656 

ADD  HL, HL 

5911 

1717 

SUB  8 

5724 

1657 

ADD  HL, HL 

5913 

1719 

LD  (16066) ,  A 

5725 

1658 

ADD  HL,HL 

5916 

171C 

RET 

5726 

165E 

EX  DE,  HL 

5917 

171D 

LD  HL,  (8218) 

chare 

5727 

165F 

LD  HT.  (87181 

chaxs 

5920 

1720 

INC  H 

5730 

1662 

inn  ht.  nP 

t\uu  nil  ,  ul\ 

5921 

1721 

T  n  C  fHT.l 
LtU  V-  ,     v  ni_i  / 

5731 

1663 

t  n  b.     i  ut  \ 

LtU  Ai  [nLt) 

5922 

1722 

t  n  p. 

LiU   Ct ,  o 

5732 

1664 

LtU    (10U  /y )  ,  A 

5924 

1724 

5735 

1667 

ryr  TC7T_I   O  T 

5925 

1725 

SLA  C 

5736 

1658 

5927 

1727 

TP    HP  ^Q"}1 

5739 

166B 

DT1D  LIT 
r\JJr  Mb 

5929 

1729 

H.TM7  ^Q74 

5740 

166C 

T  T*l   TIP      1  fifiQO 
LtU    UC  XOUOU 

5931 

172B 

t  n  &     M  fiOfiri  \ 

LtU    At      \±\>\JO\Jf  , 

left 

5743 

166F 

5934 

172E 

LD  C  A 

5746 

1672 

LDXR 

5935 

162F 

T.n  A  MfiOfim 

LtU   n  ,      I  luuuj  |  , 

5748 

1674 

T  n  / 1 K0771  nP 

UU     \XV\J  III/  UCt 

5938 

1732 

SUB  B 

5752 

1678 

LuJ   IX.,  IXOUOJj  , 

Y 
A 

5939 

1733 

CP  C 

5755 

167B 

PS.T  T  HQ£7 

5940 

1734 

5759 

167F 

LtU    (lOu/OJ  ,    A  i 

Y  ? 

5941 

1735 

r.n    ( 1  fiflfiR  1  a 

LtLl     ^                  J  ,     n  , 

5762 

1682 

IT)    (1  fiOfift  \  HT 

LtU     UOUQO)  ,  rtL, 

5944 

1738 

5765 

1685 

LD  B  8 

5945 

1739 

PUSH  AF 

5767 

1687 

ruin  C1- 

5946 

173A 

PUSH  HL 

5768 

1688 

I.n  HT      (1  fi077  \ 
Ltu  ru_i t    i iou / // 

5947 

173B 

LD  A,  D 

6771 

168B 

T  n  a      f  HT  1 

LtU   Ai  \t\Lil 

5948 

173C 

RRC  A 

5772 

168C 

ViPC  HT. 
u£*\-  ruj 

5950 

173E 

RRC  A 

5773 

168D 

TP    M  fi0771  HT. 

LtU     \  X  DU  I'll  nu 

5953 

1740 

RRC  A 

5776 

1690 

LD  L  A 

5954 

1742 

AND  3 

5777 

1691 

LtU  A,     {  i  t)U  /  d  ) 

5956 

1744 

OR  88 

5780 

1694 

AND  A 

5958 

1746 

LD  H,  A 

5781 

1695 

TP    7  Q707 
Jn  Li    D ly j 

5959 

1747 

LD  L  E 

5783 

1697 

LD  B  A 

5960 

1748 

LD  A,  (16074) 

wi  n   a  f"  ^  f 

5784 

1698 

t  n  u  n 
LAJ  n ,  u 

5963 

174B 

T.n   f  HT.  1  A 

LtU     \  nLt  ff  n 

5786 

169A 

CPT  T 
OftLi  Li 

5964 

174C 

POP  HL 

5788 

169C 

ru\  rt 

5965 

174D 

POP  AF 

5790 

169E 

AND  A 

5966 

174E 

5791 

169F 

DJNZ  5786 

5967 

174F 

LD  A,    (23  632) 

5793 

16A1 

LD  DE,  (16068) 

Bcireen  aciclress 

5970 

1752 

CP  93 

1 
i 

5797 

16A5 

LD  A,  (DE) 

5972 

1754 

JR  C,  5980 

5798 

16A6 

XOR  L 

5974 

1756 

T.D  DP  97^1 

LiLi    LI  La  ,      J  /  J  L  i 

5799 

16A7 

LuJ     ^  L/C  J  ,  /* 

5977 

1759 

JP  19 

5800 

16A8 

CALL  5945 

5980 

17  5C 

LD  DE  8874 

\  speccirurn)  scjrGGn  aocurGss 

5803 

16AB 

LD  A,  (16076) 

5983 

17  5F 

JR  5977 

5806 

16AE 

AND  A 

5985 

1761 

POP  AF 

5807 

16AF 

JR  Z,  5814 

5986 

1762 

POP  AF 

5809 

16B1 

INC  DE 

5987 

1763 

POP  BC 

5810 

16B2 

T  n  a     i  np  i 

L*U   A ,     \  LIE.  J 

5988 

1764 

DPiD  T*|T? 

5811 

16B3 

LD  A  H 

5989 

1765 

POP  HL 

5812 

16B4 

T.n  (nPi  a 

5990 

1766 

LiU    { loy y4 )  ,  A 

5813 

16B5 

DEC  DE 

5993 

1769 

t  n  f i ^QQfi \  nP 

LtU     \  XJJJU  1  i  L/C. 

5814 

16B6 

LD  HL,  (16068) 

screen  scidress 

5997 

176D 

LjU  Ai  i 

cnai^s  ( ni ) 

5817 

16B9 

CALL  5841 

6000 

1770 

CP  93 

J 

5820 

16BC 

LD  (16068) ,  HL 

6002 

1772 

5823 

16BF 

POP  BC 

6004 

1774 

t  n  np    t 7  on 

LtU    UCtr      ItioV  t 

r<an(4f>i  r  /  On  C  O  \ 

senacv  \  u  b  o ; 

5824 

1600 

DJNZ  5797 

6007 

1777 

5826 

1602 

r.n  a,  (16079) 

6009 

1779 

t  n  nP    7  CsAft 

LtL*    L/C.     i  J^O  , 

send  cri3.ir  to  sen  ( speccy ) 

5829 

16C5 

T.n  A,  (16065) 

x 

6012 

177C 

PITCH  nP 

5832 

16C8 

LD  B,  A 

6013 

177D 

T.n  A      ( 1  S99d  \ 

111/    f\ .  \i._JJ77*4/ 

5833 

16C9 

T.n  A,  (16070) 

chsr  widen 

6016 

1780 

t  n  nP    n  SQtifi  i 

L»L*    L/C .  ^L 

5836 

16CC 

ADD  A,  B 

6020 

1784 

JP  186 

jpout 

5837 

16CD 

LD  (16065) ,  A 

X 

6023 

1787 

LD  A,  (16060) 

left 

5840 

16D0 

RET 

6026 

178A 

LD  B,  A 

5841 

16D1 

PUSH  AF 

6027 

178B 

LD  A,  (16062) 

•  . 

5842 

16D2 

LD  A,  H 

6030 

1781 

SUB  B 

5843 

16D3 

DEC  H 

6031 

178F 

SRL  A 

5844 

16D4 

AND  7 

6033 

1791 

SRL  A 

5846 

16D6 

JR  NZ,  5858 

6035 

1793 

SRL  A 

5848 

16D8 

LD  A,  L 

6037 

1795 

INC  A 

5849 

16D9 

SUB  32 

6038 

1796 

LD  (13434) ,  A 

5851 

16DB 

T.n  l,  A 

6041 

1799 

XOR  A 

5852 

16DC 

JR  C,  5858 

6042 

179A 

r.n  nidim  a 

LtU     ^  1JHJ  J  J  .  x\ 

5854 

16DE 

T.n  A  H 

6045 

179D 

t  n  a     f  1  finR'}  \ 

LX)ttom 

5855 

16DF 

ADD  A,  8 

6048 

17A0 

LD  B,A 

5857 

16EL 

T.n  h,  a 

6049 

17A1 

LD  A,    ( 16061 ) 

op 

5858 

16E2 

POP  AF 

6052 

17A4 

SUB  B 

5859 

16E3 

RET 

6053 

17A5 

SCF 

5860 

16E4 

T.n  b  8 

6054 

17A6 

CCF 

5862 

16E6 

LD  A,  (16079) 

6055 

17A7 

RRA 

5865 

16E9 

LD  C  A 

6056 

17A8 

RRA 

5866 

16EA 

AND  A 

6057 

17A9 

RRA 

5867 

16EB 

SRL  C 

6058 

17AA 

LD   ( 13443 ) ,  A 

5869 

16ED 

JR  NC,  5874 

6061 

1 7  AD 

LD  BC,  (16060) 

;  left 

5871 

16EF 

DEC  B 

6065 

17B1 

LD  ( 16072 )  BC 

5872 

16F0 

.TR  5  fi  6  6 

6069 

17B5 

LD  A,  8 

5874 

I6F2 

LD  A,  E 

6071 

17B7 

LD   (13442 ) ,  A 

5875 

16F3 

LD   (16070) ,  A 

char  width 

6074 

17BA 

LD  BC,  (16072) 

5878 

16F6 

LD  A,    ( 16065 ) 

X 

6078 

17BE 

CALL  5967 

Ec?l 

16F9 

ADD  A,  B 

6081 

17C1 

EX  DE,  HL 

:  ~  -,  2 

16FA 

JR  C ,  5890 

6082 

17C2 

LD  BC,  (16072) 

5884 

16FC 

LD  B,  A 

6086 

17C6 

LD  A,  B 

5885 

16FD 

LD  A,    ( 1 6062 ) 

;  right 

6087 

17C7 

SUB  8 

5888 

1700 

C?  B 

6089 

17C9 

LD  B,  A 

588S 

1701 

RET  NC 

6090 

17CA 

LD   (16072 ) ,  BC 

5890 

1702 

LD  A,  (16060) 

;  left 

6094 

17CE 

PUSH  DE 

5878 

16F6 

LD   (16065) ,  A 

;  X 

6095 

17CF 

CALL  5967 

5  "96 

1708 

LD  A,  U6066) 

.  V 

6098 

17D2 

POP  DE 

5899 

17  OB 

LD  B,  A 

6099 

17D3 

LD  BC,  (13434) 

16  SINC-LINK 
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(17) 


Dec     Hex  Instr-Dec 


Remarks 


CLEAR 


6103 
6106 
6107 
6108 
6109 
6111 
6112 
6113 
6114 
6115 
6116 
6119 
6120 
6121 
6123 

_6126 
6128 
6131 
6132 
6133 
6135 

_6138 
6140 
6142 
6145 
6146 
6149 
6151 
6152 
6153 
6155 
6156 
6157 
6158 
6160 
6161 
6164 
6165 
6168 
6169 
6170 
6173 
6176 
6179 
6181 
6182 
6183 
6184 
6185 
6188 
6189 
6190 
6191 
6192 
6194 
6197 

_6200 
6202 
6217 
6220 
6222 
6224 
6226 
6228 
6231 
6232 
6235 
6236 
6237 
6238 
6239 
6242 
6245 

_6248 
6251 
6254 
6255 
6257 
6259 

_6261 
6263 

_62  66 
62  68 

_6271 
6273 
6276 
6279 
6282 

_6284 
6285 
6286 


6294 

62  97 
6300 
6301 
6304 
6?  05 
61 

63  09 


17D7 
17DA 
17DB 
17DC 
17DD 
17DF 
17E0 
17E1 
17E2 
17E3 
17E4 
17E7 
17E8 
17E9 
17EB 
17EE 
17F0 
17F3 
17F4 
17F5 
17F7 
17FA 
17FC 
17FE 
1801 
1802 
1805 
1807 
1808 
1809 
180B 
180C 
180D 
180E 
1810 
1811 
1814 
1815 
1818 
1819 
181A 
181D 
1820 
1823 
1825 
1826 
1827 
1828 
1829 
182C 
182D 
182E 
182F 
1830 
1832 
1835 
1838 


(13442) 


LD  (13436),  HL 
PUSH  HL 
PUSH  DE 
PUSH  BC 
LDIR 
POP  BC 
POP  DE 
POP  HL 
DEC  H 
DEC  D 
LD  A, 
DEC  A 
AND  A 
JR  Z,  6128 
LD  (13442) ,  A 
JR  6106 
LD  A,  (13443) 
DEC  A 
AND  A 
JR  Z,  6140 
LD  (13443),  A 
JR  6069 
LD  B,  8 

LD  HL,  (13436) 

PUSH  HL 

LD  A,  (13434) 

LD  (HL)  ,  0 

INC  HL 

DEC  A 

JR  NZ,  6149 
POP  HL 
DEC  H 
PUSH  HL 
DJNZ  6146 
POP  HL 

LD  A,  (16064) 
DEC  A 

LD  (16064) ,  A 
AND  A 
RET  NZ 

LD  A,  (16079) 
LD  (13438) ,  A 
LD  HL,  6202 
LD  B,  10 
LD  A,  (HL) 
PUSH  AF 
PUSH  BC 
PUSH  HL 
CALL  5667 
POP  HL 
POP  BC 
POP  AF 
INC  HL 
DJNZ  6181 
LD  A,  (13438) 
LD  (16079) ,  A 
JR  6217 


scroll  count 
scroll  count 


SCROLL  ??' 


SCROLL  ??' 


1849 
184C 
184E 

1850 

1852 

1854 

1857 

1858 

185B 

185C 

185D 

185E 

185F 

1862 

1865 

1868 

186B 

186E 

186F 

1871 

1873 

1875 

1877 

187A 

187C 

187F 

1881 

1884 

1887 

188A 

188C 

188D 

188E 

1891 

1893 

1896 

1899 

189C 

189D 

18A0 

18A1 

18A3 

18A5 


6217 
(16063) 
A 

(16061) 


CALL  7841 
LD  A,  191 
IN  A,  254 
CP  31 
JR  Z, 
LD  A, 
LD  B, 
LD  A, 
SUB  B 
RRA 
RRA 
RRA 

LD  (16064) ,  A 

LD  A,  (16060) 

LD  (16065) ,  A 

JP  6140 

LD  (8222),  A 

AND  A 

JR  Z,  6263 

CP  1 

JR  Z,  6268 

JR  6273 

LD  HL,  16000 

JR  6276 

LD  HL,  16020 

JR  6276 

LD  HL,  16040 

LD  DE,  16060 

LD  BC,  20 

LDIR 

RET 

RST  32 

CALL  5369 

CP  3 

JP  NC,  4554 
CALL  6251 


•cpointer  6  6176 


;  not  n/1,  1,  k,j  or  h 
bottom 

;  top 


scroll  count 

left 

X 


LD  A, 
LD'  B, 

SUB  B 
SRL  A 
SRL  A 
SRL  A 


16060) 
,16062) 


window  0  info 
window  1  info 
window  2  info 

next  char 

left 
right 


6311 

18A7 

6312 

18A8 

6315 

18AB 

6316 

18  AC 

6319 

18AF 

6322 

18B2 

6323 

18B3 

6326 

18B6 

6327 

18B7 

6328 

18B8 

6329 

18B9 

6330 

18BA 

6331 

18BB 

6332 

18BC 

6333 

18BD 

6336 

18C0 

6340 

18C4 

6344 

18C8 

6346 

18CA 

6349 

18CD 

COD  J 

18D1 

635  6 

i  qt\a 

10U4 

6357 

lOLO 

O  J  O  1 

DJOZ 

18DA 

63  64 

18DC 

6365 

18DD 

6369 

18E1 

6371 

18E3 

6373 

18E5 

6374 

18E6 

6375 

18E7 

6378 

18EA 

6379 

18EB 

6381 

18ED 

6383 

18EF 

6384 

18F0 

6387 

18F3 

6388 

18F4 

6392 

18F8 

6395 

18FB 

6396 

18FC 

6397 

18FD 

6398 

18FE 

6401 

1901 

6402 

1902 

6403 

1903 

6404 

1904 

6405 

1905 

640  6 

1906 

6409 

1909 

6410 

19  OA 

6411 

190B 

6413 

190D 

041  0 

1  01  ft 

iy  iu 

D41C 

642 1 

1915 

6422 

1916 

04Z  z 

1017 

1  Q 1  Q 
1717 

6428 

191C 

04  J  V 

1  Q  1  T? 

04J  J 

1921 

643  6 

1924 

6439 

1927 

6442 

192A 

0443 

192D 

6446 

192E 

6448 

1930 

6450 

1932 

6452 

1934 

6454 

1936 

6457 

1939 

6459 

193B 

6462 

193E 

6454 

1936 

6467 

1943 

6470 

1946 

6473 

1949 

6475 

194B 

04  /  0 

194C 

6478 

li?4£, 

6479 

1?4T 

6480 

1950 

04O4 

1  Q  C  ^ 

O4o  D 

1955 

648  6 

19  56 

6487 

1957 

6488 

1958 

6490 

195A 

VFRTFY  fiilQI 

VUM"  1  \JtiJX 

19  5B 

f.AQ') 

1  J 

649  5 

19  5F 

6498 

19  62 

6501 

19  65 

6504 

1968 

6505 

1969 

6506 

19  6A 

6507 

19  6B 

6510 

196E 

INC  A 

LD  (13434),  A 
XOR  A 

LD  (13435),  A 

LD  A,  (16063) 

LD  B,  A 

LD  A,  (16061) 

SUB  B 

SCF 

CCF 

RRA 

RRA 

RRA 

INC  A 

LD  (13443),  A 

LD  BC,  (16060) 

LD  (16072),  BC 

LD  A,  8 

LD  (13442) ,  A 

LD  BC,  (16072) 

CALL  5967 

EX  DE,  HL 

LD  BC,  (16072) 

LD  A,  B 

SUB  8 

LD  B,  A 

LD  (16072),  BC 

CP  200 

JR  C,  6383 

PUSH  DE 

POP  HL 

LD  BC,  32 

OR  A 

SBC  HL,  BC 
JR  6388 
PUSH  DE 
CALL  5967 
POP  DE 

LD  BC,  (13434) 

LD  (13436),  HL 

PUSH  HL 

PUSH  DE 

PUSH  BC 

CALL  6476 

POP  BC 

POP  DE 

POP  HL 

DEC  H 

DEC  D 

LD  A,  (13442) 

DEC  A 

AND  A 

JR  Z,  6418 

LD  (13442),  A 

JR  6395 

LD  A,  (13443) 

DEC  A 

AND  A 

JR  Z,  6430 

LD  (13443),  A 

JR  6344 

LD  HL,  (16060) 

LD  (16065) ,  HL 

CALL  6442 

JP  4499 

LD  A,  (16071) 

AND  A 

JR  Z,  6454 

CP  1 

JR  Z,  6459 

JR  6464 

LD  DE,  16000 

JR  6467 

LD  DE,  16020 

JR  6467 

LD  DE,  16040 

LD  HL,  16060 

LD  BC,  19 

LDIR 

RET 

LD  (HL),  0 
XOR  A 

LD  (DE) ,  A 
CALL  5945 
INC  HL 
INC  DE 
DEC  BC 
LD  A,  C 
OR  B 

JR  NZ,  6476 

RET 

XOR  A 

LD  (8221) ,  A 

CALL  126 

CALL  123 

LD  HL,  (8324) 

LD  A,  H 

ADD  A,  A 

LD  K,  A 

LD  (8245) .  HL 

CALL  123 


bottom 
top 


left 


left 

X 


wondow  0  info 
wondow  1 


info 


wondow  2  info 
current  windoe  info 


curtrk 
track 
loadbf 
varof set 


temp6 
loadbf 


SINC-LINK 
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DRAW 


Dec 

Hex 

Instr-Dec         Remarks  (18) 

name  Dec 

Hex 

6513 

1  Q*71 

iy  ii 

CALL  129 

;  nexttr 

6750 

1A5E 

6516 

LD  HL,  (8245) 

;  temp 6 

6751 

LA5F 

6519 

1  077 

PUSH  HL 

6753 

1A61 

6520 

i y  to 

LD  A,  L 

6755 

1A63 

6521 

x  y  /y 

CP  2 

6756 

1A64 

6523 

1  OTP 

iy  id 

JR  Z,  6528 

6757 

1A65 

6525 

iy  /u 

CALL  129 

;  nexttr 

6758 

1A66 

1980 

LD  A,  (8221) 

;  curtrk 

6759 

1A67 

6531 

1983 

POP  HL 

6760 

1A68 

6532 

1984 

CP  H 

6761 

1A69 

6533 

1985 

JR  C,  6510 

6762 

1A6A 

6535 

1987 

JP  4499 

6765 

1A6D 

6538 

1 98A 

RST  32 

;  next  char 

6766 

1A6E 

6539 

198B 

CALL  144 

;  evalu 

6767 

1A6F 

198E 

LD  (8241),  BC 

;  t€tnp2 

6770 

1A72 

6546 

1992 

LD  A,  B 

6773 

1A75 

6547 

1993 

AND  A 

6774 

1A76 

6548 

1994 

JR  NZ,  6585 

;  integer  out  of  range 

6777 

1A79 

6550 

1996 

RST  32 

;  next  char 

6778 

1A7A 

6551 

1997 

CALL  144 

;  evalu 

6779 

1A7B 

6554 

199A 

LD  A,  B 

6782 

1A7E 

6555 

199B 

AND  A 

6783 

1A7F 

6556 

199C 

JR  NZ,  6585 

;  integer  out  of  range 

6784 

1A80 

6558 

199E 

LD  A,  C 

6786 

1A82 

6559 

1  QQTT 

i  y  yr 

LD  (8242),  A 

temp2+l 

6787 

1A83 

CO  Ox 

19A2 

LD  HL,  (23645) 

;  chadd 

6789 

1A85 

0DO3 

19A5 

LD  A,  (HL) 

6790 

1A86 

6566 

19A6 

CP  44 

6791 

1A87 

6568 

19A8 

JR  NZ,  6583 

;  parameter  error 

6794 

1A8A 

6570 

19AA 

RST  32 

;  next  char 

6796 

1A8C 

OJ  /± 

19AB 

CALL  144 

;  evalu 

6798 

1A8E 

6574 

1 9AE 

LD  A,  B 

6800 

1A90 

19AF 

AND  A 

6802 

1A92 

/O 

19B0 

JR  NZ,  6585 

;  integer  out  of  range 

6805 

1A95 

6578 

19B2 

LD  A,  C 

6808 

1A98 

6579 

1  qui 

LD  (8222),  A 

6809 

1A99 

6582 

19B6 

RET 

6812 

1A9C 

6583 

19B7 

RST  8  ERR  26 

;  parameter  error 

6814 

1A9E 

6585 

19B9 

RST  8  ERR  11 

;  integer  out  of  range 

6817 

1AA1 

with  <pointer 

e  7197 

6818 

1AA2 

6587 

00  00 

00  00  00  00  00 

00 

6820 

1AA4 

6595 

FF  FF 

FF  FF  FF  FF  FF 

FF 

6821 

1AA5 

6603 

55  AA 

55  AA  55  AA  55 

AA 

6824 

1AA8 

6611 

CC  CC 

33  33  CC  CC  33 

33 

6827 

1AAB 

6619 

CO  CO 

OC  OC  CO  CO  OC 

OC 

6830 

1AAE 

6627 

CO  CO 

00  00  OC  OC  00 

00 

6833 

1AB1 

6635 

88  44 

22  11  88  44  22 

11 

6834 

1AB2 

6643 

11  22 

44  88  11  22  44 

88 

6836 

1AB4 

6651 

FF  08 

08  08  FF  80  80 

80 

6838 

1AB6 

6659 

18  24 

42  81  81  42  24 

18 

6840 

1AB8 

6667 

1A0B 

LD  HL,  (23677) 

;  coords 

6843 

1AB8 

6670 

1A0E 

LD  A,  H 

6845 

1ABD 

6671 

1A0F 

ADD  A,  15 

6847 

lABF 

6673 

1A11 

LD  H,  A 

6850 

1AC2 

6674 

1A12 

LD  (8249),  HL 

6851 

1AC3 

6677 

1A15 

CALL  6538 

6852 

1AC4 

6680 

1A18 

CALL  141 

;  en  din 

6854 

1AC6 

6683 

1A1B 

LD  HL,  (8241) 

;  terap2 

6856 

1AC8 

6686 

1A1E 

XOR  A 

6857 

1AC9 

6687 

1A1F 

CP  H 

6859 

1ACB 

6688 

1A20 

JP  Z,  4499 

6860 

1ACC 

6691 

1A23 

CP  L 

6863 

1ACF 

6692 

1A24 

JP  Z,  4499 

6866 

1AD2 

6695 

1A27 

JP  6821 

6867 

1AD3 

6698 

1A2A 

LD  BC,  (8247) 

6869 

1AD5 

6702 

1A2E 

LD  A,  191 

6872 

1AD8 

6704 

1A30 

SUB  B 

6875 

1ADB 

6705 

1A31 

RET  C 

6876 

1ADC 

6706 

1A32 

LD  B,  A 

6878 

LADE 

6707 

1A33 

AND  192 

6879 

1ADF 

6709 

1A35 

RRA 

6880 

1AE0 

6710 

1A36 

RRA 

6883 

1AE3 

6711 

1A37 

RRA 

6884 

1AE4 

6712 

1A38 

LD  H,  A 

6887 

1AE7 

6713 

1A39 

LD  A,  B 

6890 

IAEA 

6714 

1A3A 

AND  7 

6893 

1AED 

6716 

1A3C 

OR  H 

6897 

1AF1 

6717 

1A3D 

OR  64 

6898 

1AF2 

6719 

1A3F 

LD  H,  A 

6899 

1AF3 

6720 

1A40 

LD  A,  C 

6901 

1AF5 

6721 

1A41 

RLCA 

6903 

1AF7 

6722 

1A42 

RLCA 

6907 

1AFB 

6723 

1A43 

RLCA 

6911 

1AFF 

6724 

1A44 

AND  199 

6914 

1B02 

6726 

1A46 

LD  L,  A 

6915 

1B03 

6727 

1A47 

LD  A,  B 

6917 

1B05 

6728 

1A48 

AND  56 

6919 

1B07 

6730 

1A4A 

OR  L 

6922 

1B0A 

6731 

1A4B 

RLCA 

692  5 

1B0D 

6732 

1A4C 

RLCA 

1B0E 

6733 

1A4D 

LD  L,  A 

oy  &  y 

1B11 

1A4E 

LD  A,  C 

1B14 

t "  j  S 

1A4F 

AND  7 

6933 

1B15 

6737 

1A51 

LD  B,  A 

6934 

1B16 

6738 

1A52 

LD  A,  (8222) 

6937 

1B19 

£741 

1A55 

LD  C,  A 

6940 

1B1C 

6742 

1A56 

LD  A,  1 

6943 

1B1F 

6744 

1A58 

INC  B 

6946 

1B22 

67  45 

1A59 

RRCA 

6947 

e~4t 

1A5A 

RLC  C 

6949 

1B25 

67  48 

1A5C 

DJNZ  6745 

CIRCLE  6952 

1B28 

Remarks 


RET 

BIT  0,  C 
JR  Z,  6758 
OR  (HL) 
LD  (HL),  A 
RET 
CPL 

AND  (HL) 
LD  (HL),  A 
RET 

LD  A,  (8239) 
AND  A 
RET  Z 
CALL  6698 
CALL  6751 
EX  DE,  HL 
LD  HL,  8239 
DEC  (HL) 
RET  Z 

LD  HL,  8247 
INC  (HL) 
LD  A,  (HL) 
AND  7 
AND  A 

JR  NZ,  6767 
EX  DE,  HL 
INC  HL 
LD  A,  (8239) 
SUB  8 

JR  C,  6767 
CP  8 

JR  C,  6767 
LD  (8239) ,  A 
LD  A,  (8222) 
LD  (HL),  A 
LD  A,  (8247) 
ADD  A,  8 
LD  (8247) ,  A 
AND  A 

JR  NZ,  6790 
RET 

LD  A,  (8242) 
LD  (8240) ,A 
LD  HL,  6587 
LD  A,  (8222) 
AND  A 
JR  Z,  6860 
CP  10 

JR  NZ,  6845 
LD  HL,  23540 
JR  6860 
CP  11 

JP  NC,  6585 
LD  B,  A 
XOR  A 
ADD  A,  8 
DJNZ  6852 
LD  C,  A 
LD  B,  0 
ADD  HL,  BC 
LD  (8243) ,  HL 
LD  HL,  (8249) 
LD  A,  H 
AND  7 

LD  (8328) ,  A 
LD  HL,  (8243) 
LD  C,  A 
LD  B,  0 
ADD  HL,  BC 
INC  HL 

LD  (8245) ,  HL 
LD  A,  (HL) 
LD  (8222) ,  A 
LD  A,  (8241) 
LD  (8239) ,  A 
LD  BC,  (8249) 
INC  B 
LD  A,  B 
CP  192 
JR  NC,  6949 
LD  (8249) ,  BC 
LD  (8347) ,  BC 
LD  A,  (8328) 
INC  A 
CP  8 

JR  NZ,  6926 
LD  H; ,  (8243) 
LD  (8245) ,  HL 
XOR  A 

LD   (8328) ,  A 
LD  HL,  (8245) 
LD  A,  (HL) 
INC  HL 

LD  (8245) ,  HL 
LD   (8222) ,  A 
CALL  6767 
LD  HL,  8240 
DEC  (HL) 
JR  NZ,  6887 
JP  4499 
CALL  6538 


tempi 


temp4 


datablock 
temp4 


temp6 
temp2 


datablock. 


temp4 
temp6 

datablock 
temp6 


temp6 
tempi 
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SINC-LINK 


Dec 

Hex 

Instr-Dec  Remarks 

/ 1  Q  \ 

name  Dec 

Hex 

Instr-Dec  Remarks 

6955 

1B2B 

LD  HL,  (8241) 

;  temp2 

71  £7 

1BF1 

DEC  B 

6958 

12BE 

LD  E,  16 

7154 

1BF2 

LD  (8243),  BC 

tetnp4 

6960 

1  TJ7H 

ADD  A,  H 

7158 

1BF6 

EX  DE,  HL 

6961 

1  P71 

LD  H,  A 

7159 

1BF7 

CALL  6702 

6962 

1B32 

CP  191 

7162 

1BFA 

LD  A,  (HL) 

6964 

1B34 

JR  C,  6968 

7163 

1BFB 

EX  DE,  HL 

6966 

1B36 

RST  8  ERR  11 

;  integer  out  of  range 

7164 

1BFC 

CP  255 

end  of  track 

6968 

1H38 

LD  (8249),  HL 

7166 

1BFE 

RET  Z 

6971 

1B3B 

LD  (8247),  HL 

7167 

1BFF 

LD  BC,  (8243) 

temp4 

1B3E 

CALL  6698 

7171 

1C03 

CALL  6702 

6977 

1H41 

LD  D,  A 

7174 

1C06 

AND  (HL) 

6978 

1B42 

AND  (HL) 

7175 

1C07 

AND  A 

6979 

AND  A 

7176 

1C08 

JR  Z,  7189 

6980 

1B44 

JP  NZ,  4499 

7178 

1C0A 

LD  BC,  (8243) 

temp4 

6983 

1B47 

XDR  A 

7182 

1C0E 

DEC  C 

6984 

1B48 

LD  (8240),  A 

;  tempi 

7183 

1C0F 

LD  (8243) ,  BC 

t€fnp4 

6987 

1B4B 

LD  (8239),  A 

7187 

1C13 

JR  7171 

6990 

1B4E 

JP  7197 

7189 

1C15 

LD  HL,  (8243) 

temp4 

6993 

1B51 

CALL  6698 

7192 

1C18 

LD  A,  L 

6996 

1B54 

AND  (HL) 

71  0"l 

1C19 

LD  (8239) ,  A 

6997 

1  ncii; 

iOJJ 

AND  A 

7196 

1C1C 

RET 

iOJO 

JR  NZ,  7013 

7197 

1C1D 

LD  HL,  6587 

/  uuu 

1B58 

LD  HL,  (8247) 

7200 

1C20 

LD  A,  (8222) 

7om 

/  UUj 

1B5B 

INC  L 

7203 

1C23 

AND  A 

7004 

1B5C 

LD  A,  L 

1C24 

JP  Z,  7230 

7005 

1B5D 

AND  A 

/ZUD 

1C2  6 

CP  10 

7006 

1B5E 

JRZ,  7024 

7208 

1C28 

JR  NZ,  7215 

7008 

1B60 

LD  (8247),  HL 

7210 

1C2A 

LD  HL,  23540 

7f)1  1 

1B63 

JR  6993 

7213 

1C2D 

JR  7230 

7ni  7 

/  U  1J 

1B65 

LD  HL,  (8247) 

7215 

1C2F 

CP  11 

7016 

DEC  L 

7217 

1C31 

JP  NC,  6585 

7017 

1B69 

LD  A,  L 

7220 

1C34 

LD  B,  A 

7018 

1B6A 

CP  255 

•  end  of  track 

map 

7221 

1C35 

XOR  A 

7020 

RET  Z 

7222 

1C36 

ADD  A,  8 

7021 

XDOU 

LD  (8247),  HL 

7224 

1C38 

DJNZ  7222 

7024 

1B70 

LD  HL,  (8247) 

777  £ 

1C3A 

LD  C,  A 

7027 

1B73 

LD  A,  L 

7227 

1C3B 

LD  B,  0 

7028 

1B74 

AND  7 

722  9 

1C3D 

ADD  HL,  BC 

7030 

1B76 

CP  7 

7230 

1C3E 

LD  (13434),  HL 

7032 

1B78 

JR  Z,  7059 

7233 

1C41 

LD  (13436),  HL 

7034 

1B7A 

CALL  6698 

723  6 

1C44 

LD  A,  (8248) 

7037 

1B7D 

LD  D,  A 

7239 

1C47 

AND  7 

7038 

1B7E 

AND  (HL) 

7241 

1C49 

LD  (8328) ,  A 

datablock 

7039 

RET  NZ 

7244 

1C4C 

LD  HL,  (13434) 

7040 

1B80 

LD  A,  D 

7247 

1C4F 

LD  C,  A 

7041 

1B81 

CALL  6751 

7248 

1C50 

LD  B  0 

7044 

1B84 

CALL  7096 

7250 

1C52 

ADD  HL,  BC 

7047 

1B87 

LD  HL,  (8247) 

7251 

1C53 

LD  (13434),  HL 

7050 

1B8A 

LD  A,  L 

7254 

1C56 

LD  A,  (HL) 

7051 

1B8B 

AND  A 

7255 

1C57 

LD  (8222) ,  A 

7052 

1B8C 

RET  Z 

7258 

1C5A 

XOR  A 

7053 

1B80 

DEC  L 

7259 

1C5B 

LD  (8240) ,  A 

tempi 

7054 

1B8E 

LD  (8247),  HL 

7262 

1C5E 

CALL  6993 

7057 

1B91 

JR  7024 

77  £  c. 

1C61 

LD  A,  (8239) 

7059 

1B93 

CALL  6698 

AND  A 

7062 

1B96 

LD  A,  (HL) 

77  £  Q 

1  net 

JR  Z,  7325 

7063 

1B97 

AND  A 

7271 

1C67 

LD  A,  (8328) 

datablock 

7064 

1B98 

JR  NZ,  7034 

7274 

1C6A 

INC  A 

7066 

1B9A 

LD  A,  (8222) 

7275 

1C6B 

CP  8 

7069 

1B9D 

LD  (HL) ,  A 

7277 

1C6D 

JR  Z,  7291 

7070 

1B9E 

LD  (8245),  HL 

;  temp6 

7279 

1C6F 

LD  (8328) ,  A 

datablock 

7073 

1BA1 

CALL  7134 

7282 

1C72 

LD  HL,  (13434) 

7076 

1BA4 

LD  HL,  (8247) 

7285 

1C75 

INC  HL 

7079 

1BA7 

XOR  A 

728  6 

1C76 

LD  (13434),  HL 

7080 

1BA8 

LD  A,  L 

7289 

1C79 

JR  7301 

7081 

1BA9 

SBC  A,  8 

7391 

1C7B 

LD  HL,  (13436) 

7083 

1BAB 

CP  255 

;  end  of  track 

map 

77Q^ 

1C7E 

LD  (13434),  HL 

7085 

1BAD 

RET  Z 

77Q7 

1  HQ1 

XOR  A 

7086 

1BAE 

LD  L,  A 

77QQ 

1  fD*) 

itoz 

LD  (8328) ,  A 

datablock 

7087 

1BAF 

LD  (8247),  HL 

7301 

1C85 

LD  A,  (HL) 

7090 

1BB2 

LD  HL,  (8245) 

;  temp 6 

7302 

1C86 

LD  (8222) ,  A 

7093 

1BB5 

DEC  HL 

7305 

1C89 

LD  A,  (8239) 

7094 

1BB6 

JR  7062 

7308 

1C8C 

LD  HL,  (8247) 

7096 

1BB8 

LD  A,  (8239) 

77  1  1 

1C8F 

LD  L,  A 

7099 

1BBB 

AND  A 

7717 

1C90 

INC  H 

7100 

1BBC 

RET  NZ 

7313 

1C91 

LD  (8247) ,  HL 

7101 

1BBD 

LD  A,  (8240) 

;  tempi 

731 6 

1C94 

XOR  A 

7104 

1BC0 

LD  BC,  (8247) 

7317 

1C95 

LD  (8239) ,  A 

7108 

1BC4 

CP  1 

7320 

1C98 

LD  A,  H 

7110 

1BC6 

JR  Z,  7115 

777  1 

1C99 

CP  191 

7112 

1BC8 

INC  B 

7323 

1C9B 

JR  C,  7262 

7113 

1BC9 

JR  7116 

732  5 

1C9D 

LD  A,  1 

7115 

1BCB 

DEC  B 

7327 

1C9F 

LD  ( 8240) ,  A 

tempi 

7116 

1BCC 

LD   (8243),  BC 

•  temp 4 

1CA2 

LD  HL,  (8249) 

'7120 

CALL  6702 

77  7  7 

1CA5 

DEC  H 

7123 

1BD3 

AND  (HL) 

77  7/ 

1CA6 

LD   (8247! ,  HL 

7124 

AND  A 

733  7 

1CA9 

LD  A ,  H 

71  ^  5 

^BD5 

RET  NZ 

^33  8 

1CAA 

AND  7 

1BD6 

LD  HL,  (8243) 

;  temp4 

7340 

xCAC 

LD  (8328) ,  A 

datablock 

7129 

1BD9 

LD  A,  L 

7343 

LD  HL 

(13436) ,  A 

7130 

1BDA 

LD  (8239) ,  A 

7346 

1CB2 

LD  C,  A 

1BDD 

RET 

7347 

1CB3 

LD  B,  0 

1BDE 

LD  A,  (8239) 

7349 

1CB5 

ADD  HL,  BC 

n  '.'  ~ 

1BE1 

AND  A 

7350 

1CB6 

LD  (13434),  HL 

7138 

1BE2 

RET  NZ 

*?353 

1CB9 

LD  A,  (HL) 

71^9 

1BE3 

LD  A,  (8240) 

;  tempi 

77^/! 

/J  J4 

i  CPA 

LD  (8222) ,  A 

71 42 

1BE6 

LD  BC,  (8247) 

-77  57 

1CBD 

LD  HL,  (13436) 

7146 

CP  1 

7360 

1CC0 

LD  BC,  7 

"'14? 

1BEC 

JR  Z,  7153 

7363 

1CC3 

ADD  HL,  BC 

^  1 E  C 

1BEE 

INC  B 

7364 

1CC4 

LD   (13436),  HL 

1BEF 

JR  7154 

7367 

1CC7 

CALL  6993 

SINC-LINK 
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7370 

1CCA 

LD  A,  (8239) 

7373 

1CCD 

AND  A 

7374 

1CCE 

JR  Z,  7430 

7376 

1CD0 

LD  A,  (8328) 

7379 

1CD3 

DEC  A 

7380 

1CD4 

CP  255 

7382 

1CD6 

JR  Z,  7396 

7384 

1CD8 

LD  (8328) ,  A 

7387 

1CDB 

LD  HL,  (13434) 

7390 

1CDE 

DEC  HL 

1CDF 

T  T\      /7^jIOjII  tTT 

LD  (13434) ,  HL 

*7T  QA 

1CE2 

TT3  7Jfl7 

1CE4 

t  r\  lit       i  ^  i  An  c  \ 
LD  HL,  (1j43d) 

7700 

1  /  'L"'7 

LD    (13434)  ,  HL 

7402 

lUfcA 

LD  A,  7 

1 A  f\A 
1 4U4 

1CEC 

LD  (8328) ,  A 

1 A  n7 
/4U  / 

1CEP 

LD  A,  (HL) 

7408 

1CF0 

LD  (8222),  A 

7411 

1CF3 

LD  A,  (8239) 

7414 

1CF6 

LD  HL,  (8247) 

1 A  1  "7 

ill.  1 

1CF9 

LD  L,  A 

7418 

1CFA 

DEC  H 

7419 

1CFB 

LD  (8247),  HL 

7422 

1CFE 

XOR  A 

/  4*:  J 

1CFF 

LD  (8239),  A 

7/!  ?fi 

1D02 

LD  A,  H 

7427 

1D03 

AND  A 

7428 

1D04 

JR  NZ,  7367 

1D06 

JP  4499 

7433 

1D09 

LD  HL,  (15990) 

1D0C 

INC  HL 

7  All 

1D0D 

INC  HL 

74*>D 

1D0E 

LD  C,  (HL) 

/4jy 

1D0F 

INC  HL 

7440 

1D10 

LD  B,  (HL) 

7441 

1D11 

ADD  HL,  BC 

7yi  ,1  7 

1012 

INC  HL 

1 AA1 
1 440 

1013 

LD  (15990) ,  HL 

1016 

RET 

7447 

1D17 

LD  HL,  (23635) 

7450 

1D1A 

LD  (15990) ,  HL 

7453 

1D1D 

LD  HL,  13430 

7456 

1020 

LD  D,  (HL) 

7457 

1D21 

INC  HL 

7458 

1022 

LD  E,  (HL) 

7459 

1023 

LD  (15992) ,  DE 

1027 

JR  7474 

7465 

1029 

CALL  7433 

/4Do 

1D2C 

LD  A,  (HL) 

/403 

1D2D 

CP  40 

7471 
/4  /l 

1D2F 

JR  C,  7474 

7471 

1D31 

RET 

747A 
,4/4 

1D32 

LD  HL,  (15990) 

7477 

±UJZ> 

Lu  a,  (nil) 

/4  /O 

1  nifi 

lUJO 

INC  HL 

7470 

7  nn 

LD  C,  (HL) 

7480 

1D38 

LD  HL,  (15992) 

7483 

1D3B 

OR  A 

7484 

103C 

SBC  HL,  BC 

/  4oo 

1D3E 

RET  C 

7487 

1D3F 

LD  A,  H 

7488 

1O40 

OR  L 

7449 

1D41 

JR  NZ,  7465 

7491 

1043 

LD  HL,  (15990) 

7494 

1046 

PUSH  HL 

1D47 

INC  HL 

7CQC 

1D48 

INC  HL 

/4y  / 

1D49 

LD  C,  (HL) 

7498 

1D49 

INC  HL 

7499 

1D4B 

LD  B,  (HL) 

/  DUU 

1D4C 

POP  HL 

/Jul 

1040 

INC  BC 

1D4E 

INC  BC 

1D4F 

INC  BC 

7504 

1D50 

INC  BC 

/jUD 

1D51 

CALL  ViZ 

7508 

1054 

RET 

1055 

T  T"\    LTT  /71C77I 

LD  HL,  1) 

•TCI  0 

1058 

INC  HL 

1D55 

LD             1) ,  HL 

7516 

1D5C 

CALL  7447 

7519 

1D5F 

LD  HL,  13430 

7522 

1D62 

INC  HL 

7523 

1D63 

INC  HL 

7524 

1 D64 

LD  l_ ,     (  HL) 

/  JiD 

INC  HL 

7526 

1D66 

LD  B,  (HL) 

7527 

1D67 

LD  HL,  (15990) 

/  JJU 

1D6A 

INC  BC 

7531 

1D6B 

INC  BC 

7532 

1D6C 

INC  BC 

~'  -  -  3 

1JJOU 

twp  X2T 
1INL  oL 

1D6E 

PUSH  OL 

7535 

1D6F 

PUSH  BC 

"7  c:  "3  ^ 

/  d  J  b 

1D70 

XOR  A 

1D71 

Uui    0  4  ,  A 

1D73 

LAI  ill  ley 

7C  <7 

1D76 

LD  A ,  8 

7544 

1D78 

or  tt  fi  A  a 

7546 

1D7A 

POP  BC 

7547 

1D7B 

LD  HL,  13430 

Remarks 


(20) 


da tab lock 


end  of  track  map 
datablock 


datablock 


prog 


shrink 


ldil 


name  Dec 

Hex 

Instr-Dec  Remarks 

7550 

1D7E 

LD  DE,  (15SSU) 

7554 

1D82 

LDIR 

7556 

1D84 

POP  BC 

7557 

1D85 

T  T7    UT  /7TOT\ 

LD  HL,    UJD^  / ) 

;  vars 

7560 

1D88 

DEC  HL 

7561 

1D89 

T  n    /  ?7K97 1  HT. 

;  vars 

7564 

1D8C 

MERGE  7565 

1D8D 

PAT.T.  1 1fl 

7568 

1D90 

T.n  HT.  fl??6 
Ljlj  nxj , 

7571 

1D93 

CALL  1 11 

Wf7  III!  1 

7574 

1D96 

LD  A,  (8224) 

•  errnu 

7577 

1D99 

CP  10 

7579 

1D9B 

JP  Z,  147 

;  nofil 

7582 

1D9E 

CALL  135 

J  inovdi  2T 

7585 

1DA1 

XOR  A 

7586 

1DA2 

LjLJ     \        tO  /  ,  ft 

7589 

1DA5 

T.n  hi,  fl^o 

i  Qi  rcct.  ory 

7592 

1DA8 

INC  HL 

7593 

1DA9 

LD  A,  253 

;  1st  block 

7595 

1DAB 

CP  (HL) 

7596 

1DAC 

JR  NZ,  7592 

7598 

1DAE 

LD  (8245) ,  HL 

7601 

1DB1 

LD  HL,  (8245) 

7604 

1DB4 

INC  HL 

7605 

1DB5 

LD  (8245) ,  HL 

cempo 

7608 

1DB8 

T.n  A  (HT.) 
uu  £\ ,     \  n  i_i  / 

7609 

1DB9 

;  name  end 

7611 

1DBB 

.TP  7  7fl1 

7614 

1DBE 

T  n   ( fl??1 1  A 

;  curtrK 

7617 

1DC1 

HAT  J,  1?6 

■ — r*  I  il  i  liiU 

.  track 

7620 

1DC4 

CALL  123 

7623 

1DC7 

LD  A,  (8224) 

'  u 

7625 

1DCA 

CP  25 

7628 

1DCC 

JP  Z,  195 

*  dterr 

7631 

1DCF 

LD  A,  (8248) 

7634 

1DD2 

CP  50 

;  2 

7636 

1DD4 

JR  Z,  7746 

7638 

1DD6 

LD  HL,  5090 

;  track  length 

7641 

1DD9 

T.n    (  fi?41  \  HT 
Ltu    |u£7i|  ,  ni_i 

;  t€ST\p2 

7644 

1DDC 

T  n  HT       07  9fi 

H=»t-  aKl  ^v.L- 

i  uacaDiocK 

7647 

1DDF 

t  n    / ft^7fi\  HT 
1ju-i    lOijDJ  ,  nb 

;  start 

7650 

1DE2 

t  n  ht     / ay ai  \ 

;  temp2 

7653 

1DE5 

LD  BC  5 

7656 

1DE8 

QHr*   HT  TIP 
udl  nil ,  dl 

7658 

IDEA 

.TP   P  77?^ 

7660 

1DEC 

LD   UT        ( O  7 1 fi \ 

7663 

1DEF 

LF  A  (HL) 

7644 

1DF0 

CP  40 

'  V 

7666 

1DF2 

JP  NC,  7815 

7669 

1DF5 

INC  HL 

7670 

1DF6 

INC  HL 

7671 

1DF7 

LD  C,  (HL) 

7672 

1DF8 

INC  HL 

7673 

1DF9 

LD  B,  (HL) 

7674 

IDFA 

INC  BC 

7675 

1DFB 

INC  BC 

7676 

1DFC 

INC  BC 

7677 

1DFD 

INC  BC 

7678 

1DFE 

LD  A  B 

7679 

1DFF 

CP  5 

7691 

1E01 

JR  NC,  7784 

7683 

LE03 

LD  HL,  (8241) 

;  temp2 

7686 

1E06 

OR  A 

7687 

LE07 

qnp  ut  Tin 

SDL    nij  r  DL 

7689 

1E09 

.7R  C  77?? 

7691 

1E0B 

T.n               1  HT 

LiLi     \0*m**X}  ,  nil 

i  temp z 

7694 

1E0E 

T.D  HI.  (S^Tfil 

7697 

1E11 

LD  DE,  13430 

7700 

1E14 

LDIR 

7702 

1E16 

LD  (8236) ,  HL 

'  start 

7705 

1E19 

CALL  7509 

7708 

1E1C 

LD  HL,  (8241) 

• 

erap 

7711 

1E1F 

LD  A,  H 

7712 

1E20 

OR  L 

7713 

1E21 

JR  NZ,  7650 

7715 

1E23 

XOR  A 

7716 

1E24 

LD  (8248) ,  A 

7719 

1E27 

JP  7601 

7722 

1E2A 

LD  BC,  (8241) 

7726 

1E2E 

LD  HI.  ffi?7fil 

LULJ     nil,  \04,J\Jl 

7729 

1E31 

r.n  nv  itato 

LjU     LJLJ  .  ij4JU 

7732 

1E34 

LDIR 

7734 

1E36 

LD  ( 8238) ,  DE 

7738 

1E3A 

LD  A,  50 

;  2 

7740 

1E3C 

LD  (8248) ,A 

7743 

1E3F 

JP  7601 

7746 

1E42 

LD  HL,  8328 

7749 

1E42 

LD  DE,  (8238) 

;  datablock 

7753 

1E49 

LD  BC.2000 

7756 

1E4C 

LDIR 

7758 

1E4E 

XOR  A 

7759 

1E4F 

LD  (8248) ,  A 

7762 

1E52 

LD  HL,   13  430 

7765 

1E55 

LD  A,  (HL) 

7766 

1E56 

CP  40 

.  / 
#  \ 

7768 

1E58 

JR  NC,  7815 

7770 

1E5A 

INC  HL 

7771 

LE5B 

INC  HL 

7772 

1E5C 

LD  C,  (HL) 

7773 

1E5D 

INC  HL 

7774 

1E5E 

LD  B,  (HL) 

20 
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name     Dec  Hex 


7775 
7776 
7777 
7118 
7779 
7780 
7782 

_7784 
7786 
7787 
7788 
7792 
7793 
7795 
7796 
7797 
7800 
7801 
7804 
7807 
7808 
7810 

_7813 
7815 
7818 
7822 
7823 
7826 
7829 
7830 
7832 
7834 
7835 

_7838 
7841 
7842 
7844 
7846 
7848 
7850 

_7851 

_7852 
7854 
7858 
7861 
7862 
7863 
7865 
7866 
7868 
7871 
7873 
7876 
7878 
7880 
7882 
7884 
7886 
7888 
7890 
7892 
7895 
7897 
7899 
7901 
7903 
7905 
7907 
7909 
7912 
7914 
7915 
7918 
7920 
7923 
7925 
7923 
7929 

_7930 
7933 

_7934 
7936 

J7939 
7941 
7942 
7945 
7947 
7949 
7950 


TOKENS  7952 
7953 


7959 
7961 
7963 
7965 
_79  68 


7970 


79': 


1E5F 

1E60 

1E61 

1E62 

1E63 

1E64 

1E66 

1E69 

1E6A 

1E6B 

1E6C 

1E70 

1E71 

1E73 

1E74 

1E75 

1E73 

1E79 

1E7C 

1E7F 

1E80 

1E82 

1E85 

1E87 

1E8A 

1E8C 

1E8F 

1E92 

1E95 

1E96 

1E98 

1E9A 

1E9B 

1E9E 

1EA1 

1EA2 

1EA4 

1EA6 

1EA8 

1EAA 

1EAB 

1EAC 

1EAE 

1EB2 

1EB5 

1EB6 

1EB7 

1EB9 

1EBA 

1EBC 

1EBF 

1EC1 

1EC4 

1EC6 

1EC8 

1ECA 

1ECC 

1ECE 

1ED0 

1ED2 

1ED4 

1ED7 

1ED9 

1EDB 

1EDD 

1EDF 

1EE1 

1EE3 

1EE5 

1EE8 

1EEA 

1EEB 

IEEE 

1EF0 

1EF3 

1EF5 

1EF8 

1EF9 

1EFA 

1EFD 

1EFE 

1F00 

1F03 

1F05 

1F06 

1F09 

1F0B 

1F0D 

1F0E 

1F10 

1F13 
1F15 
1F17 
1F19 
1F1B 
1F1D 
1F20 
-  — •■)  -i 

1F24 
1F26 


INC  BC 
INC  BC 
INC  BC 
INC  BC 
LD  A,  B 
CP  5 

JR  C,  7786 
RST  8  ERR  16 
PUSH  BC 
POP  HL 

LD  BC,  (8241) 
OR  A 

SBC  HL,  BC 
PUSH  HL 
POP  BC 
LD  HL,  8328 
ADD  HL,  BC 
LD  (8236),  HL 
LD  HL,  5090 
OR  A 

SBC  HL,  BC 

LD  (8241),  HL 

JR  7705 

LD  A,  (23622) 

CP  255 

JP  NZ,  4499 

LD  HL,  (8321) 

LD  (23618),  HL 

LD  A,  H 

CP  255 

JR  Z,  7835 

XOR  A 

LD  (23620) .  A 
JP  4499 
PUSH  AF 
LD  A,  127 
IN  A,  254 
CP  30 

JR  Z,  7852 
POP  AF 
RET 

RST  8  ERR  13 
LD  IX,  16090 
LD  A,  (IX+3) 
LD  B,  A 
AND  A 

JR  NZ,  7952 
POP  AF 
CP  13 

CALL  Z,  8016 
CP  6 

JP  Z,  8056 
CP  10 

JR  Z,  7925 
CP  12 

JR  Z,  7941 
CP  16 

JR  C,  7928 
CP  23 

JR  C,  7928 
JP  Z,  8050 
CP  32 

JR  C,  7928 
CP  123 
JR  C,  7925 
CP  128 
JR  C,  7941 
CP  165 
JP  NC,  8075 
LD  B,  79 
SUB  B 
CALL  8080 
LD  A, 8 
CALL  8080 
LD  A,  95 
CALL  8001 
POP  BC 
POP  HL 
JP  186 
POP  AF 
JR  7925 
CALL  8080 
JR  7928 
PUSH  AF 

LD  A,  (23632)  ; 
CP  93 

JR  C,  7933 
POP  AF 
JR  8075 
POP  AF 
BIT  5,  B 
JR  NZ,  7936 
BIT  7,  B 
JR  NZ,  7928 
BIT  6,  B 
JR  NZ,  7974 
DEC  (IX+3) 
JR  7928 
LD  A,  5 
JR  7996 
LD  B,  A 


;  no  room  for  line 

;  temp2 

;  datablock 

;  start 

;  length  of  track 


;  temp2 

ppc(hi) 
;  end  of  track  map 

;  linenu 
;  newppc 

;  end  of  track  map 


nsppc 


;  is  it  'break* 


;  break  -  cont  repeats 
;  mwide 
;  ppas 


,-  tokens 

;  enter? 

;  print  comma? 

;  cursor  down? 

;  delete? 

j  ink? 

;  tab? 

;  space? 


LF 


7975 
7978 
7979 
7981 
7983 
7984 
7987 
7988 
7991 
7992 
7994 
7996 

_7999 
8001 
8004 
8007 
8008 
8009 
8010 
8011 
8012 

_8015 
8016 
8018 
8021 
8024 
8026 
8028 
8031 
8035 
8038 
8039 
8040 
8041 
8043 
8046 
8048 

_8049 
8050 

_8054 
8056 
8059 
8062 
8064 

_8066 
8069 
8071 

_8074 
8075 
8076 

_8077 
8080 
8081 
8084 
8087 
8089 
8090 
8091 
8093 
8094 
8096 

_8099 


A&J 


jpout 


chans (hi ) 
] 


Aerco  8100 
8102 
8104 
8106 
8107 
8109 

 8111 

8112 
8114 
8116 
8118 
8119 
8121 
8123 
8125 
8126 
_8128 


lfeed 


Tasman  8129 
8131 
8133 
8135 
8137 
8139 
8141 
8142 
8144 
8145 
8147 
8149 
8150 
8152 
8154 
8156 
8158 

 8160 


8161 

thru 
8191 


1F27 

1F2A 

1F2B 

1F2D 

1F2F 

1F30 

1F33 

1F34 

1F37 

1F38 

1F3A 

2F3C 

1F3F 

1F41 

1F44 

1F47 

1F48 

1F49 

1F4A 

1F4C 

1F4C 

1F4F 

1F50 

1F52 

1F55 

1F58 

1F5A 

1F5C 

1F5F 

1F63 

1F66 

1F67 

1F69 

1F69 

1F6B 

1F6E 

1F70 

1F71 

1F72 

1F76 

1F78 

1F7B 

1F7E 

1F80 

1F82 

1F85 

1F87 

1F8A 

1F8B 

1F8C 

1F8D 

1F90 

1F91 

1F94 

1F97 

1F98 

1F9A 

1F9B 

1F9D 

1F9E 

1FA0 

1FA3 

1FA4 

1FA6 

1FA8 

1FAA 

1FAB 

1FAD 

1FAF 

1FB0 

1FB2 

1FB4 

1FB6 

1FB7 

1FB9 

1FBB 

1FBD 

1FBE 

1FC0 

1FC1 

1FC3 

1FC5 

1FC7 

1FC9 

1FCB 

1FCD 

1FCE 

1FD0 

1FD1 

1FD3 

1FD5 

1FD6 

1FD8 

1FDA 

1FDC 

1FDE 

1FE0 

1FE1 

1FFF 


Instr-Dec 

LD  A,  (IX+0) 
CP  B 

JR  NC,  7988 
LD  B,  0 
PUSH  BC 
CALL  8069 
POP  BC 
LD  A,  (IX+1) 
CP  B 

JR  NZ,  7983 
LD  A,  1 
LD  (IX+3) ,  A 
JR  7928 
CALL  8080 
LD  HL,  16090 
LD  A,  (HL) 
INC  HL 
INC  (HL) 
LD  C,  (HL) 
CP  C 

CALL  C,  8016 
RET 

LD  A,  13 
CALL  8080 
LD  A,  (IX+2) 
CP  10 

JR  NZ,  8031 
CALL  8080 
LD  (IX+1) ,0 
LD  B,  (IX+4) 
XOR  A 
CP  B 
RET  Z 
LD  A,  32 
CALL  8080 
DJNZ  8041 
XOR  A 
RET 

LD  (IX+3) ,  64 

JR  7928 

CALL  8069 

LD  A,  (IX+1) 

AND  15 

JR  NZ,  8056 

JP  7928 

LD  A,  32 

CALL  8001 

RET 

POP  BC 

POP  HL 

JP  5990 

PUSH  AF 

CALL  7841 

LD  A,  (IX+6) 

AND  A 

JR  Z,  8100 

DEC  A 

JR  Z,  8129 
DEC  A 
JR  Z,  8112 
LD  HL,  (8216) 
JP  (HL) 
IN  A,  127 
BIT  4,  A 
JR  NZ,  8081 
POP  AF 
OUT  127,  A 
IN  A,  127 
RET 

IN  A,  65 
AND  4 

JR  NZ,  8081 
POP  AF 
OUT  66,  A 
LD  A,  4 
OUT  65,  A 
XOR  A 
OUT  65,  A 
RET 

IN  A,  191 
BIT  0,  A 
JR  NZ,  8141 
IN  A,  251 
BIT  0,  A 
JR  NZ,  8081 
XOR  A 
OUT  251,  A 
DEC  A 
OUT  123  A 
OUT  251,  A 
POP  AF 
OUT  123  A 
LD  A,  247 
OUT  251,  A 
LD  A,  255 
OUT  251,  A 
RET 
NOP 

all  NOP's 
NOP 


Remarks 


width 


ppas 
mwide 


If 

do  a  line  feed 


lfeed 

lfeed  +  carr  ret? 


put  0  in  lfeed 
margin 


space 

repeat  until  marg  done 


space 


check  for  break 
printer  type 

0=Aerco  I/F 

l=Tasman  I/F 

2=A&J  I/F 

ptdrv  (user  defined) 
printer  check 
not  ready 
print ! 


not  ready 
print ! 


printer  check 
not  ready 
motor  on 
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HOWARD  CLASE  plays  with  DISKS 

Formats  -  FormatH"i  tbm  *****  -  Sector  reader  -  Renaming  -  r.jcKnqs  included. 


Playing  with  disks. 

After  reading  Bryan  Davies '  remarks  about 
disk  formatting  using  an  ED  drive  and 
Gold  Card  in  his  trouble  shooter  column 
in  the  May  '93  issue  of  QL  World  I 
decided  to  play  about  a  bit  myself.  As 
I  explored  I  found  myself  writing  a 
number  of  little  SuperBASIC  routines  to 
help  me,  and  copies  of  these  are  being 
send  to  Hugh  for  inclusion  in  the  Toronto 
User  Group  QL  Library. 

In  my  language,  a  "routine"  is  a  short 
piece  of  rough  and  ready  code  designed 
for  a  specific  job.  It  works,  but  to 
turn  it  into  a  "program"  I  would  need  a 
lot  of  work  on  things  like  pretty 
screens,  foolproof ing ,  user  friendliness 
etc .  You  are  supposed  to  get  into  EDIT 
(or  ED)  and  adapt  them  to  suit  your  own 
purposes  and  systems.  I  have  tried  to 
put  most  of  the  things  that  might  need 
changing  into  the  first  PROCedure , 
Set_up,  with  REMs  indicating  the  changes 
you  might  want  to  make.  Since  there  is 
not  much  error  trapping,  (in  fact  I 
cannot  work  out  how  to  reliably  trap  the 
no-disk-in-drive  error  for  direct  sector 
reading,)  if  you  do  create  an  error,  or 
BREAK  the  program  for  any  reason  you  may 
leave  the  disk  OPEN,  so  enter  "close"  or 
"finish"  at  the  keyboard  before  running 
the  routine  again.  The  routines  are: 
disk_sector_reader ,  disk_PC_f  ormatter , 
and  disk_rename  (two  versions) 

Bryan  Davies  mentioned  drilling  a  HD  hole 
in  a  DD  disk,  so  I  took  a  copy  of  each 
format  to  my  workshop,  selected  a  drill 
bit  of  about  the  same  size  of  the  square 
hole  in  the  HD  disk  and  made  a  round  hole 
in  the  same  place  on  my  DD  disk.  Back 
to  the  old  QL,  and  sure  enough  2880 
sectors  appeared  when  I  formatted  it. 
He  mentions  an  undocumented  GG  command 
"flp_density  D"  to  impose  DD  format  (H 
for  HD  and  E  for  ED),  when  I  tried  this 
on  my  doctored  disk  my  experience  was  the 
same  as  his:  "format  failed".  "So  ,  I 
thought,  "the  disk  drive  is  detecting  the 
hole  in  some  way,  perhaps  it's  shining  a 
light  through?"  I  put  a  bit  of  sticky 
paper  over  the  top  of  the  hole  and  still 
got  2880.       Holding  it  up  to  the  window  I 


could  see  that  the  paper  wasn't  totally 
opaque,  so  I  tried  filling  the  hole  with 
a  blob  of  "blu-tack"  (An  opaque  blue 
substance  a  bit  like  sticky  plasticene 
which  is  available  in  the  UK  and  has  all 
sorts  of  uses.)  Result  1440:  but  then  I 
thought,  "there's  another  way  to  test  for 
the  presence  of  holes,  and  that's  to  try 
to  poke  a  solid  object  through  it. 
Perhaps  it's  poking  its  fingers  up  from 
the  bottom."  and  sure  enough  the  piece  of 
paper  stuck  on  the  bottom  also  gave  1440 
sectors.  At  this  point  reason  got  the 
better  of  empiricism  and  I  realised  that 
since  the  holes  are  near  the  outer  edge 
of  the  disc  case  I  could  probably  see  the 
mechanism  if  I  lifted  up  the  drive's  dust 
flap,  and  sure  enough,  there  were  three 
strategically  placed  brass  pins:  one  on 
the  left  for  the  write  protect  tab,  and 
two  on  the  right  for  ED  and  HD  disk 
testing.  (According  to  a  note   in  the 

latest  International  QL  Report  you  can 
set  the  jumpers  on  your  drive  so  that  it 
doesn't  physically  test  the  disk,  but 
believes  what  the  software  tells  it,  and 
FLP_DENSITY  seems  to  work  under  these 
conditions . ) 

The  next  thing  to  try,  obviously,  was  an 
ED    hole    in    a    DD    disk.  This  worked 

almost  through  to  the  center  giving  me 
about  5900  sectors  -  how  do  I  know  where 
it  failed?  -  you  can  hear  when  a  cylinder 
fails  to  format  since  the  regular 
sequence  of  roughly  1  sec  "thunks"  from 
the  disk  drive  breaks  up  into  a  quicker 
pattern.  The  centre,  where  the  sectors 
are  physically  shorter,  is  obviously  the 
most  challenging  place  for  the  magnetic 
medium. 

It  is  of  course  possible  that  some  other 
drive  manufacturers  use  the  optical 
method,  but  a  bit  of  opaque  paper  on  the 
bottom  should  cope  with  both  systems. 
This  is  so  that  you  can  use  the  disk  in 
it's  original  format  if  you  don't  trust 
the  new  one  or  if  it  doesn't  format 
properly . 

In  practise,  I  wouldn't  recommend 
formatting  a  DD  disk  as  ED,  you  are 
pushing  things  a  bit  to  close  to  the 
limit,  and  the  result  is  likely  to  be 
unreliable.         On    the   other   hand    I  have 
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heard  it  said  that  the  only  difference 
between  some  manufacturers  DD  and  HD 
disks  is  the  hole,  the  label  and  the 
price  -  it's  not  worth  their  while  to 
have  two  different  grades  of  magnetic 
material.  If  this  is  correct  the  only 
problem  I  can  see  here  is  the  danger  of 
getting  bits  of  plastic  turnings  inside 
the  sleeve. 

Disk  Formats 

While  I  am  on  the  subject  of  disks  I 
should  add  a  bit  about  the  three 
different  formats  of  3.5"  disks  available 
to  Gold  Card  users.  For  the  absolute 
beginner  I  should  explain  the  terms  as  I 
understand  them.  Firstly  we  have  the 
"tracks",  these  are  a  series  of 
concentric  circles  on  which  the  data  are 
recorded  magnetically.  You  cannot  see 
them,  the  material  is  uniform,  you  depend 
upon  your  disk  drive  mechanism  moving 
the  heads  to  exactly  the  right  place. 
According  to  the  words  on  the  side  of  my 
disk  box  there  are  135  tracks  per  inch, 
and  since  there  are  a  total  of  80  of  them 
on  a  side  the  total  width  used  is  only 
about  0.6  of  an  inch.  Most  3.5"  disks 
are  double  sided,  two  heads  read  the 
corresponding  tracks  on  both  side  of  the 
disks  at  the  same  time,  this  combination 
is  called  a  "cylinder".  Since  computers 
generally  start  counting  at  zero  rather 
than  one  the  tracks  are  numbered  from  0 
to  79  from  the  outside  in,  and  the  sides 
are  numbered  0  and  1. 

Each  track  is  divided  into  a  number  of 
sectors,  and  this  is  where  the  formats 
differ.  In  DD  (double  density)  format 
each  track  is  divided  into  9  sectors, 
each  capable  of  holding  512  bytes  (or  0.5 
kbyte  -  the  same  as  a  microdrive  sector)) 
so  the  whole  disk  has  9*2*80  =  1440 
sectors   (or  720  kbytes). 

High  density  (HD)  disks  squeeze  every 
thing  up  closer  fitting  18  x  512  kbyte 
sectors  into  the  same  space,  thus 
doubling  the  capacity.  But  this  doesn't 
mean  tnat  you  can  have  1440  or  2880  files 
on  each  disk  since  in  both  these  formats 
the  sectors  are  assigned  to  files  in 
blocks  of  three,  generally  interweaving 
them   as       1-4-7,    2-5-8,    3-6-9    etc    -  but 


other  formats  are  possible,  it's  all  to 
do  with  the  time  it  takes  to  perform  the 
saving  operations.  This  means  that  if 
you  save  only  one  byte  there  are 
immediately  1536  fewer  bytes  available 
for  other  files.  A  few  sectors  in  track 
zero  are  also  reserved  for  disk 
information,  such  as  format  information 
and  the  disk  directory.  So  you  can  have 
about  500  and  1000  small  files  on  DD  and 
HD  disks  repectively.  Apart  from  the 
reserved  information  these  formats  are 
exactly  the  same  as  those  used  by  IBM 
PCs,  and  you  can  in  fact  read  the 
information  from  an  IBM  disk  on  your  QL, 
although  not    in   a   very   convenient  form! 

Disk_sector_reader ,  will  enable  you  to 
explore  the  contents  of  a  QL  disk  (&  IBM 
-  DD  &  HD  only)  sector  by  sector. 

However,  when  Miracle  went  to  ED  (Extra 
high  density)  format  they  decided  to 
squeeze  every  bit  onto  them  that  they 
could  and  adopted  a  non-IBM  format . 
Each  track  is  split  into  10  sectors,  and 
each  sector  now  contains  2048  bytes,  so 
when  it  tells  you  that  it  is  formatted  to 
6400  sectors  it  is  telling  a  lie  -  it's 
really  only  1600,  but  since  they  are  four 
times  as  big  as  the  standard  QL  sector 
size  the  total  amount  of  memory  available 
is  the  same.  Now,  however,  sectors  are 
assigned  to  files  individually,  so  you 
can  put  over  1500  small  files  onto  one 
disk.  Since  disk  rotation  speed  is  the 
same  whatever  the  format  this  means  that 
the  QL  has  to  be  able  to  read  ED  disks  at 
over  four  times  the  speed  of  a  DD  disk. 
Hard  disks  are  faster  still. 

As  an  exception  to  the  rule  of  counting 
from  zero,  tracks  are  numbered  from  1  to 
9,  18  or  10  for  DD,  HD  or  ED 
respectively . 

Formatting  IBM  disks  on  your  QL 

As  I  mentioned  above,  the  magnetic  format 
of  QL  and  IBM  DD  and  HD  disks  is  the 
same.  In    each    disk    drive  interface 

software  there  is  a  toolkit  of  commands 
and  functions  specifically  directed  to 
disk  operations  (these  are  sometimes 
thought  of  as  part  of  Toolkit  2,  but  they 
are    really    quite    separate.)  One  of 

these  enables  you  to   read  and  write  disk 


SINC-LINK 


23 


HOWARD  CLASE  plays  with  DISKS 

Formats  -  Fonng++™q         disks  -  Sector  reader  -  Renar^q  -  Listings  included. 


sectors  directly,  irrespective  of  the 
disk's  filing  system,  and  it  is  this  that 
enables  you  to  copy  the  vital  sectors 
from  a  ready  formatted  IBM  disk  into  your 
QL  and  then  copy  them  back  onto  a 
Preformatted  QL  disk,  so  that  it  will 
behave  exactly  as  though  it  had  been 
formatted  on  one  of  the  original 
IBoMinables.  Don't  think  that  you  will 
then  be  able  to  read  your  QL  files  off  it 
with  a  PC  though,  you  only  get  an  empty 
formatted  disk,  any  files  on  the  disk 
will  be  lost.  It  also  only  produces  a 
data  disk,  not  a  system  disk. 
I  got  the  basic  idea  from  a  little 
routine  that  Simon  Goodwin  sent  me,  but 
I've  modified  it  quite  a  bit.  The 
program  as  listed  is  incomplete,  it  needs 
a  set  of  data  statements,  but  since  it 
also  contains  a  procedure  to  create  these 
there's    no    need    to    worry.  The  first 

time  you  use  the  program  as  supplied  you 
should  have  raml_  available  (if  not  use 
flp2_  or  mdvl_  making  sure  that  you  have 
a  disk  or  tape  available  and  change  all 
references  to  raml_  to  flp2_  or  mdvl_  in 
the  program.)  Put  an  empty,  but  formatted 
PC  disk  into  flpl_,  and  then  enter 
Mmake_data"  at  the  keyboard  and  follow 
instructions  to  create  the  necessary  DATA 
statements  in  a  file  called  raml_data. 
(Make_data  is  a  stand  alone  procedure  - 
really  a  separate  program  since  it  is  not 
invoked  at  all  when  you  RUN  the  main 
program,  it  can  only  be  called  directly 
from  the  keyboard.)  Then  type  "MERGE 
raml_data"  to  add  its  lines  to  the 
program  and  save  it  in  its  expanded  form. 

It  can  then  be  used  to  change  the  format 
of  a  QL  disk  without  further  reference  to 
a  genuine  IBM  disk.  I've  done  it  this 
way  so  as  not  to  risk  infringing  anyone's 
copyright . 

How  it  works:  1.  Make  data. 

The  vital  information  on  the  format  of 
the  disk  (QL  or  IBM)  is  found  in  sector 
1,  track  0,  side  0;  this  can  always  be 
read  whatever  the  format ,  otherwise  we 
would  be  in  a  catch  22  situation.  It  is 
known  as  the  boot  bloc  and  is  read  into  a 
string  variable  b$  -  all  512  bytes  of  it 
-  in  line  925  of  the  program.  The  first 
statement  of  this  line  is  one  of  those 
disk  toolkit  specials.        Instead  of  just 


OPENing  a  specific  file  on  the  disk  it 
opens  the  whole  disk  at  once  -  a 
dangerous  procedure  if  you  aren't  sure 
what    you    are    doing!  The  parameter, 

which  must  be  in  quotes,  opens  the  disk 
on  flpl  as  a  double  density  (second  d) 
disk  with  512  kbyte  sectors  (the  2)  -  you 
need  to  know  this  in  advance  -  but  all  QL 
and  IBM  DD  disks  use  this  format.  When 
a  disk  is  OPENed  like  this  all  you  can  do 
is  to  read  and  write  (that's  what  makes 
it  dangerous)  whole  sectors,  each 
individual  sector  is  identified  by  a 
number  (the  sector  id)  made  up  as 
follows:  (sector  +  256*side  + 
65536*track) .  Since  the  first  side  and 
the  first  track  are  both  numbered  0,  1 
always  refers  to  the  boot  bloc  sector. 
The  GET  function  is  next  used  to  read  the 
sector  into  b$ ;   the  syntax  is: 

GET [ channel  number] \sectpr_id,string_vari able 

only  the  channel  number  is  optional,  but 
you  will  almost  always  need  to  put  it  in, 
since  it  is  very  unlikely  that  you  will 
ever  use  the  command  with  the  default 
channel,  #1!  The  effect  then  in  line 
925  is  to  dump  all  512  bytes  of  the  boot 
bloc  sector  from  the  sector  into  b$. 
Since  that  is  all  that  is  required  from 
the  disk  it  is  immediately  closed  again. 

The  next  line,  930,  OPENs  a  conventional 
file  in  a  ram  disk  (you  could  use  flp2  or 
mdvl  here  remember),  dumps  the  sector 
bloc  from  b$  into  that,  and  closes  it 
again.  It  is  immediately  reOPENed  in 
line  935,  but  for  input  only,  and  another 
new  file,  raml_data ,  created.  The  loop 
from  940  to  965  copies  the  512  bytes  from 
the  boot  bloc  into  raml_data,  changing 
the  format  as  it  goes.  It  first  prints 
a  line  number  and  the  word  DATA  to  the 
file  (945),  takes  the  bytes  one  at  a  time 
from  channel  3  (using  BGET)  as  integers 
this  time  not  characters  (b%  -  the  %  sign 
declares  the  variable  an  integer)  and 
prints  them  to  channel  4  followed  by  a 
comma  except  for  the  last  one  (960). 
The  program  has  automatically  written  a 
line  of  BASIC  for  you.'  a  DATA  statement 
with  sixteen  numbers.  This  is  repeated 
15  more  times,  and  everything  CLOSEd 
(970). 
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(Those  readers  with  a  bit  of  programing 
experience  will  have  asked  themselves  why 
I  used  the  intermediate  file 
raml_boot_bloc  rather  than  just  read  the 
characters  back  out  of  b$  and  convert 
them  to  integers  using  coersion.  I 
wondered  that  too  later;  but  I  left  it  as 
it  is  since  it  illustrates  more  of  the 
file  handling  commands.) 

You  merge  this  set  of  DATA  statements  in 
to  complete  the  program  and  you  can  save 
it  for  future  use.  The  line  numbers  for 
the  DATA  statements  are  carefully  chosen 
so  as  not  to  conflict  with  other  lines  in 
the  program,  so  don't  RENUMBER  until  it 
is     complete.  (I     couldn't    make  the 

MERGEing  automatic  since  MERGE  will  not 
work  from  within  a  PROCedure) 

How  it  works:  2.  The  Formatter 

This  is  basically  make_data  in  reverse. 
The  integers  are  READ  back  from  the  DATA 
lines  into  b$  as  the  corresponding 
characters  (180)  and  PUT  back  into  the 
first  sector.  (PUT  is  just  like  GET 
except  that  the  information  goes  the 
other  way) .  When  I  examined  the  rest  of 
the  sectors  in  the  first  cylinder  of  a 
freshly  IBM  formatted,  virgin  disk  I 
found  that  most  of  them  were  filled  with 
zeros,  (byte  0  not  character  0)  except 
that  2  and  5  had  249,255,255  as  their 
first  three  bytes,  so  lines  240  to  280 
duplicate  this  on  the  new  disk,  this  is 
also  true  of  a  preformatted  IBM  disk  I 
have     checked.  Simon's     routine  did 

something  different  here  which  didn't 
work  for  me,  so  I  suspect  there  may  be 
other  formats  around.  If  this  routine 
doesn't  work  for  you  have  a  look  at  the 
contents  of  these  sectors  on  a  newly 
formatted  virgin  disk,  and  duplicate  them 
(disk_sector_reader  will  help  here.)  I 
have  no  idea  what  any  any  of  these  codes 
do,    I'm    just    a    copycat.  Once  again, 

disk_sector_reader  will  help  if  you  want 
to  explore  the  details. 

Changing  the  name  of  a  PL  disk. 

If  you  alter  the  above  program  to  print 
out  b$  (or  use  "disk_sector_reader " )  you 
will    find    that    the   name   of    a    QL  format 


disk  occurs  fairly  early  along  the  string 
-  actually  in  bytes  5  to  15  (counting 
from  zero  remember!).  As  I  wrote  these 
notes  I  was  reminded  of  a  routine  I  had 
once  written  to  change  the  name  on  a  disk 
see  "disk_name".  As  it  stands  it  will 
only  cope  with  a  DD  disk  in  flpl_,  but  it 
was  easily  extended  to  deal  with  the 
other  formats  and  as  many  drives  as  you 
have.  This    extended    version    is  also 

being  sent  to  the  QL  Library,  and  should 
be    available    from   Hugh.  If    you  have 

understood  my  explanations  of 

"PC_formatter"  you  should  be  able  to  work 
out  how  these  work  for  yourself,  the 
principle  is  very  similar,  it  just  reads 
the  boot  bloc,  alters  it  a  bit,  and  then 
writes  the  modified  version  back  onto  the 
disk . 

Disk  sector  reader 

This  is  probably  too  long  to  be  printed 
in  the  magazine.  It  will  deal  with  all 
three  QL  formats  and  the  two  compatible 
PC  ones  (DD  and  HD) .  It  first  asks  for 
the  drive  and  disk  format  (on  your  own 
head  be  it  if  you  give  wrong  information 
here!)  and  then  which  track(s)  you  want 
to  examine.  It  then  dumps  the  contents 
of  each  sector  in  order  onto  the  screen, 
if  you  want  to  examine  it  in  more  detail 
press  "D"  and  it  will  display  the  sector 
byte  by  byte  giving  the  byte's  position 
in  the  sector,  its  normal  character  (if 
printable)  and  its  ASCII  code.  As 
supplied  it  is  designed  to  work  on  a  TV, 
if  you  use  a  monitor  and  want  to  see  more 
at  once  alter  the  values  of  "cols"  and 
"batch"  to  suit  your  set  up  in  PROCedure 
Set_up.  (Batch    should    divide  nicely 

into  512.)  This  program  may  work  even 
on  a  partially  corrupted  disk  and  could 
be  adapted  to  act  as  a  file  rescue 
program . 
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DISK  PC  FORMATTER 

100  nra$=  "Disk_PC_formatter" 

110  REMark  SG  modified  1992.07.22  hjc 

120  REMark " Main 

130  Set_up:  Do_it:  Finish:  STOP 

140  REMark ~ * 
150  DEFine  PROCedure  Set_up 
155  CLS:b$="":  RESTORE 

160  PRINT  "This  program  converts  a  QL  format  disk  to"\"PC  format,  by 
inserting  the  boot  bloc  for"\"a  PC  disk  to  track  0,  and  initialising 
an"\"empty  PC  directory.       DD  disks  only!" 
180  FOR  i=0  TO  511:  READ  b%:  b$=b$&CHR$(b%) 
190  END  DEFine 

200  REMark  ~~ ~ ~ * 
210  DEFine  PROCedure  Do_it 

220  PRINT\"lnsert  a  formatted  QL  disc  &  press  any  key":  PAUSE(-l) 

230  OPEN#3,"flpl_*d2d":  PUT#3\l,b$ 

240  c$=CHR$(249)&CHR$(255)&CHR$(255) 

250  c$=c$&FILL$(CHR$(0) ,509) 

260  FOR  s=2,5:  PUT#3\s,c$ 

270  FOR  s=  3,4,  6T0  9,257TO  261 

280      PUT#3\s,FILL$(CHR$(0) ,512) :  END  FOR  s 


290  END  DEFine 

300  REMark ~ & 
310  DEFine  PROCedure  Finish 
320  CL0SE#3:  PRINT\"Conversion  complete" 
330  END  DEFine 

340  REMark DATA* 
900  REMark 

910  DEFine  PROCedure  make_data 
920  LOCal  b$ , i , j :  CLS 


930  PRINT"Put  a  formatted  PC  disk  into  f lpl_,  "V'then  press  any  key." 
940  PAUSE(-l) 

950  0PEN#3, 'flpl_*d2d' :  GET#3\l,b$:  CLOSE 

960  0PEN_NEW#3,raml_boot_bloc:  PRINTS ,b$ ;: CLOSE 

970  OPEN_IN#3 , raml_boot_bloc : 0PEN_NEW#4 , raml_data 

980  FOR  i=0  TO  511  STEP  16 

990      PRINT#4 , 350+i ! ' DATA  ' ; 

1000      FOR  j=0  TO  15 

1010  BGET#3,b%:  PRINT#4,b%; 

1020  IF  j<>15:  PRINTM,','; 

1030  END  FOR  j : PRINT#4 : END  FOR  i 

1040  CLOSE 

1050  PRINT "Now  enter   ' MERGE  raml_data'  at  the  "\"keyboard,  and  resave  the 

program . " 

1060  END  DEFine 
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DISK  SECTOR  READER 

5  nm$=  "Disk_sector_reader" 

10  REMark  PD  H.J.  Clase  1993.09.09  verl.3 

15  REMark  Displays  contents  of  disk  sectors 

20  REMark  of  QL  (DD ,HD&ED)  and  MSDOS  (DD&HD  only) 

25  REMark  disks. 

30  REMark  N.B.  Requires  SuperToolkit  II 
35  Set_up!  Read_sectors :  Finish 
100  REMark 

105  DEFine  PROCedure  Set_up 
110  CLS!  FLP_SEC  2 

115  pd$="l,2":  REMark  Numbers  of  drives  available 
120  pf$="D,H,E":  REMark  possible  formats 

125  dev$=Get_flp$:  fmt$=Get_fmt$ 
130  Get_tracks  Ftrack,Ltrack 

135  REMark  For  "detailed"  display,  TV  values 
140  REMark  for  wider  screens  try  6  &  64 

145  cols=3:  batch  =  32  :REMark  <          <         <   <  

150  END  DEFine 
200  REMark  ~* 

205  DEFine  PROCedure  Read_sectors 

210  LOCal  a$,k$,si ,se, tr 

215  ch%=FOPEN(dev$&fmt$) 

220  FOR  tr=Ftrack  TO  Ltrack 

225      FOR  si=0,l 

230        FOR  se  =  1  TO  maxsec 

235  GET#ch%\(se+256*si+2'16*tr) ,a$ 

240  PRINT"Track" ! tr ! "side" ! si ! "sector" ! se\a$ 

245  PRINT\\"Press  D  for  detailed  display" 

250  PRINT"or  any  other  key  to  continue"\\ 

255  IF  INKEY$(5000)=="d":  Details 

260  END  FOR  se : END  FOR  si:  END  FOR  tr 

265  END  DEFine 

300  REMark 

305  DEFine  PROCedure  Finish 
310  CL0SE#ch% 
315  END  DEFine 
400  REMark 

405  DEFine  FuNction  Get_flp$ 
410  LOCal  d$,n$,lp,p$:  d$="flpl_":  p$=" ( "&pd$&" ) " 
415  REPeat  lp 

420      PRINT"Which  drive  is  the  disk  in?  ":p$, 
425       n$=INKEY$(-l) :  PRINT  "flp";n$ 
430      IF  n$  INSTR(pd$)  AND  n$<>",":  Pip:  EXIT  lp 
435       PRINT  "Drive  ";n$;"  not  avai lable . " : Bip 
440  END  REPeat  lp 

445  d$(4)=n$:   RETurn  d$ :   END  DEFine 
500  REMark 

505  DEFine  FuNction  Get_fmt$ 
510  LOCal   f,f$,p$,r$:   p$=" ( "&pf $&" V 
51:  REPeat  lp 

520       PRINT"Disk  format?  ";p$,,, 

525       f$=INKEY$(-l) : PRINT  f$&"d" 

530      IF  f$  INSTR(pf$)  AND  f $<>",":  PiP:  EXIT  lp 

535       PRINT  "Format  ";f$;"d  unknown .": Bip 
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540  END  REPeat  lp 

545  f  =  C0DE( f$):  SELect  ON  f 

550      =  68,100:  r$="*D2DM:  maxsec=9 

555      =  69,101:  r$="*D4E":  maxsec=18 

560      =  72,104:  r$="*D2H":  maxsec=10 

565  END  SELect   :  RETurn  r$ :  END^  DEFine^  

600  REMark 

605  DEFine  PROCedure  Get_tracksC Ft ,Lt) 

610  LOCal  lp 
615  REPeat  lp 

620      INPUT"First  track  (0-79)",,, Ft 
625      IF  Ft<80  AND  Ft>=0:  Pip:  EXIT  lp 
630      PRINT  "0-79  only,  try  again!":  Bip 
635  END  REPeat  lp 
640  REPeat  lp 

645       INPUT"Last  track  ( "&Ft&"-79) " , , ,Lt 
650      IF  Lt<80  AND  Lt>=Ft:  Pip:  EXIT^lp 
655       PRINT  Ft; "-79  only,   try  again!":  Bip 

660  END  REPeat  lp:  END  DEFine    

700  REMark " 
705  DEFine  PROCedure  Pip:  BEEP  100,30:  END  DEFine 
710  DEFine  PROCedure  Bip:  BEEP  4009;^;^ND^pEFine 
800  REMark ~ ~~ 
805  DEFine  PROCedure  Details 
810  LOCal  c$,i,l$,mb,n%:  1$=CHR$(10):  mb=256:  n%=l 
815  IF  maxsec=10:  mb=2048 

820  PRINT"Position ,   character,  code"\\ 

825  FOR  i=l  TO  mb 
830      f $='###  #  ### 

835      c$=a$(i):   IF  c$=l$:c$="  ":        REMark  LF  trap 
840      PRINT_USING  f $ , i , c$ , C0DE(a$( i ) ) 
845      IF  NOT  n%  MOD  cols:  PRINT 
850      IF  NOT  n%  MOD  32 

855  PRINT\\"Press  any  key  when  ready." 

860  PRINT\"Position ,   character,  code"\\ 

865  PAUSE(2000) 

870      END  IF  :n%=n%+l 

875  END  FOR  i:  PRINT  \\:   END  DEFine 

DISK  RENAME 

5  nm$=  "Disk_rename" 

10  REMark     h.j.c.   1993.6.25  version  0.9 

15  REMark  N.B.  Uses  TK  II 

20  Rename_disk:   Finish:  STOP 

100  REMark " ~~   ~~ ------ 

105  DEFine  PROCedure  Rename_disk 

110  CLS:  FLP_SEC  2:  a$="":  n$="" 

115  OPEN*3,  'flpl_*d2d'  jt  GET#3\l,a$ 

120  PRINT  "Old  name  =  ":a$(5  TO  14) 

125  INPUT  "New  name   (ENTER  to  keep  old)  =  " ! n$ 

130  IF  n$<>"":  a$(5  TO  14)   =  n$ :  PUT^3U,a$ 

]  ?"  END  DEFine     

200  REMark 

205  DEFine  PROCedure  Finish 
210  CLOSE :  WHEN  ERRor  REPORT 
215  END  DEFine 


28 


SINC-LINK 


HOWARD  CLASE  plays  with  DISKS 

Formats  -  Formatting  IBM  Hiskg  -  Sector  reader  -  Renaming  -  Listings  included. 


DISK  RENAHE2 

5  nm$=  "Disk_rename2" 

10  REMark    h.j.c.   1993.8.18  version  2.0 

15  REMark  N.B.  Requires  TK  II 

20  Set_up:  Rename_disk:   Finish:  STOP 

100  REMark 

105  DEFine  PROCedure  Set_up 
110  CLS:  FLP_SEC  2 

115  pd$="l,2":  REMark  Numbers  of  drives  available 
120  pf$="D,H,E":  REMark  possible  formats 

125  dev$=Get_flp$:  fmt$=Get_fmt$ 
130  END  DEFine 
200  REMark 

205  DEFine  PROCedure  Rename_disk 
210  LOCal  a$,n$:  a$="":  n$="" 
215  ch%=F0PEN(dev$&fmt$) 
220  GET#ch%\l,a$ 

225  PRINTW'Old  name  =  ";a$(5  TO  14) 

230  INPUT  "New  name  (ENTER  to  keep  old)  =  " !n$ 

235  IF  n$<>"":  a$(5  TO  14)  =  n$ :  PUT#3\l,a$ 

240  END  DEFine 

300  REMark 

305  DEFine  PROCedure  Finish 
310  CL0SE#ch% 
315  END  DEFine 
400  REMark 

405  DEFine  FuNction  Get_flp$ 
410  LOCal  d$,n$,lP,p$:  d$="flpl_":  p$=" ( "&pd$&" ) " 
415  REPeat  lp 

420      PRINT"Which  drive  is  the  disk  in?  ";p$, 

425      n$=INKEY$(-l):  PRINT  Hflp";n$ 

430      IF  n$  INSTR(pd$)  AND  n$<>",":  Pip:  EXIT  lp 

435       PRINT  "Drive  ";n$;"  not  available." 

440  BEEP  4000,30:  END  REPeat  lp 

445  d$(4)=n$:  RETurn  d$ :  END  DEFine 

500  REMark 

505  DEFine  FuNction  Get_fmt$ 
510  LOCal  f,f$,p$,r$:  p$=" ( "&pf $&" ) " 
515  REPeat  lp 

520  PRINT"Disk  format?  ";p$,,, 
525      f$=INKEY$(-l):PRINT  f$&"d" 

530      IF  f$  INSTR(pf$)  AND  f $<>",":  Pip:  EXIT  lp 

535       PRINT  "Format  ";f$;"d  unknown." 

540  BEEP  4000,30:  END  REPeat  lp 

545  f  =  C0DE(f$):  SELect  ON  f 

550      =  68,100:  r$="*D2D" 

555       =  69,101:  r$="*D4E" 

560       =  72,104:  r$="*D2H" 

565  END  SELect   :  RETurn  r$ :   END  DEFine 

600  REMark 

605  DEFine  PROCedure  Pip:   BEEP  100, 30: END  DEFine 

Howard  Clase,  Tel  (709)  753-6415,  403  Torbay  Rd  SS#3 .  St  John's,  Nfld 
A1A.5C9  e-mail  hclase@morgan.ucs .mun . ca 
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The  Northern  Light  of  Sinclair  Computing 

bring  you 
SEASONS  GREETINGS 

and  wish  one  and  all 
A  MERRY  CHRISTMAS 
and 

A  HAPPY  AND  PROSPEROUS  NEW  YEAR 

TORONTO  TIMEX-SINCLAIR  USERS  CLUB 
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Dec  24,  1993 


Dear  Out-of-Town  Members, 

Another  year  has  just  about  passed  and  TTSUC  is  still  here*  Jeff 
Taylor  has  some  comments  in  his  ed itor ial ,   which  you  might  take  to  heart. 

Larry  Crawford ,  one  of  our  members  from  London,  Ontario  asks,    in  a  letter 
I  just  received,   why  not  put  out  a  list  of  members  names  &  addresses 
(possibly  phone  numbers,   why  not?),   so  that  members  could  communicate 
directly  with  each  other  as  interests  them.    I  think  this  is  a  good  idea. 
Possibly  at  the  same  time  I  could  write  a  notation  as  to  their  main  Timex 
computer  interest .  How  about  this  idea.   If  anyone  does  not  want  to  be  on  the 
list  they  could  drop  me  a  line,  requesting  deletion. 

I  have  spoken  only  to  Jeff  Taylor  about  this.  He  is  favourabl e  to  the 
idea.   We  will  have  to  consider  it  at  our  next  meeting;  maybe  there's  an 
aspect  that  I  have  not  thought  of.   If  it   is  a  go,   I  suggest  that  the  next 
news  I etter  may  bring  the  informat  ion. 

Our  2068  Larken  library  has  had  some  additions  which  you  Larken  owners 
might  be  interested  in.  Firstly,   Larry  Crawford  has  been  working  Tasword 
over  cons  iderabl y.    Incorporat  ing  many  club  members  suggest  ions  into  it. 
Well,    it  can  cope  with  I/O's  as  varied  as  tape/ LKDOS/OL IGER.  And  there's  a 
host  of  other  refinements.  Some  of  you  may  have  an  earlier  vintage  of 
Larry's  work.  Ask  for  a  revised  Larken  library  Disk  #42. 

Larry  has  also  been  refining  his  Interbank  Database  program  on  Larken 
library  disk  #30.   The  demonstrat  ion  on  the  library  disk  contains  the 
Sine-Link  Index.   You  need  a  Larken  RAM DISK  to  make  use  of  it.   If  you  already 
have  an  earlier  version,  do  get  the  updated  copy. 

Larry  C.  has  really  been  busy!  He  has  also  reworked  an  earlier  version  of 
his  AROS  utility.   This  program  a/so  makes  use  of  the  Larken  RAMDISK.  Using 
this  utility  a/lows  you  to  store  several  programs,  one  on  each  of  seven  32K 
chips  of  the  RAMDISK.   The  utility  allows  you  to  banksw itch  any  desired 
program  into  the  2068,   from  the  RAMSISK  chips.  Ask  for  it  on  library  disk 
#56. 

Wow,  our  Larken  2068  library  is  up  to  disk  #57.  Let's  describe  some  of  them. 
Our  printed  cat  a  I ogue  is  up  to  Disk  #50.   We'll  start  from  there: 

#51 .. .MSCRIPT  SUPPORT  PROGRAMS 

#52... TIMEX  INFORMATION  FILES 

#53. . .MUSIC  FORM  SPECTRUM  GAMES  TAPES 

#54. . .SPECTRUM/ TS2068  ROM  CONVERSION 

#55. . .STEPHEN  GUNHOUSE  COLLECTION 

#56 . . . AROS  DEMONS TRA T ION 

Is  anyone  waiting  for  anything  cl ub-wise,  from  me?  If  so,  I've  over  I ooked 
you.  Sorry  about  that,   write  and  remind  me. 

Shall  close  wishing  you  the  very  best  of  the  New  Year. 
S incerel y 


